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PD-SERVICE LAGE 

Postfach 1743 * 4937 Lage/Lippe 
FAX 05232/4039 * BTX *PD Service# 

liefert die allerneueste 

PD & SHAREWARE 

für IBM-kompatible PCs! 

Zudem haben wir eine der weltweit größten 
UNIX-Shareware-Bibliotheken! 

Wir bieten Ihnen eine Riesenauswahl an VGA-GIF-Bildern, 
Spielen, DTP-Ergänzungen, dt & internationalen Programmen. 

Unsere Kopiergebühren: 

3,00 - 4,50 DM für 5,25 Zoll & 5,00 - 6,50 DM für 3,5 Zoll 
Katalogdiskcttcn für 2,50 DM (Porto) 

Mit uns sind Sie immer Up-to-date! 




PD-SERVICE LAGE 

Unser besonderer Kundenservice: 

TOP-AKTUELLE US-IMPORTE 
kommerzieller Software 

zu unschlagbar günstigen Preisen! 

Nähere Informationen finden Sie auf unseren aktuellen 
Katalogdisketten, die wir Ihnen für 2,50 DM 
Portoerstattung umgehend zusenden. 


COREL DRAW V. 1.2 100600 

DEATH SWORD 3.5“ 11100 

DISK OPTIMIZER V.4.05 13800 

DYNACOMM FOR WINDOWS 504 00 

FACE-TRIS III 92 00 

FREEDOM OF THE PRESS V.2.2 704,00 

GRAMMATIK FOR WINDOWS 3 153,00 

GUNBOAT 5.25“ 104 W 

JETFORM FILLER 38000 

MS EXCEL V.2.1 D 87900 

MS POWERPOINT FOR WINDOWS 820,00 

MS WORD FOR WINDOWS V. 1.1 846,00 

NORTON UTILITIES 5.0 ^Deutsch* 305,00 

PAGEMAKER V.3.01 FOR WINDOWS 1398,00 

PFS FIRST PUBLISHER V.3.0 260,00 

PRINT MASTER PLUS V.2.0 111.00 

PRINT SHOP, THE NEW 122,00 

PUBLISHERS POWERPAK 3.0 161,00 

QEMM 386 V.5.1 16500 

QUATTRO PROFESSIONAL V.2.0 954,00 

RAMBO m 92,00 

SABER MENU FOR MS WINDOWS 3.0 673,00 

SPACE QUEST IV 129,00 

SPINRITE II V.l.l 26900 

SUPERBASE 4 V.1.2 FOR WINDOWS 3 1153,00 

THINX FOR WINDOWS 3 795 00 

TIME LINE V.4.0 1391 00 

VENTURA PUBLISHER V.3.0 F.WINDOWS 1437,00 
WINDOWLINKS 742 00 

WORDSCAN PLUS 286/386 2MB 1719,00 

Wir akzeptieren folgende Creditkarten: American Express * VISA * Euro-/Mastercard 

Brandneu und nur bei PD-Service Lage!!! 

Die Top-Programme des Monats aus dem Lage-Journal, der aktuellsten Zeitung aus der PD- und Sharewareszene jetzt 
monatlich mit deutschem Handbuch. (Programmdiskette und Handbuch) für nur 15.- DM. Soeben erschienen: 

Graphic Workshop, Anleitung mit Beispielen für die Praxis, von Gisela und Ilolger Lakies 


Eine kleine Auswahl unseres Angebotes: 

386 TO THE MAX V.5.1 
AMI PROFESSIONAL V.1.2 
ANCIENT ART OF WAR AT SEA 
BAR CODE COMPOSER (WINDOWS) 
CHEMWINDOWS V.1.33 
COHERENT UNIX-CLONE 
COLONEL’S BEQUEST, THE 
COMMAND HQ 5.25“ 

CONQUESTS OF CAMELOT 
CROSSTALK FOR WINDOWS V.3.0 
DESQVIEW 386 V.2.3 & QEMM 5.1 
DRAFIX CAD FOR WINDOWS 
EARL WEAVER BASEBALL V.1.5 
FIRST APP FOR WINDOWS 3 
GEDDY-CAD V.5.0 ^'DEUTSCH* 

GRAPH IN THE BOX EXECUTIVE 
JETFORM DESIGN V.2.0 
KING’S QUEST V (VGA/AT) 

MS OFFICE FOR WINDOWS 
MS PROJECT V.1.0 FOR WINDOWS 
MS-FLIGHT SIM.AIRCRAFT/SCENERY D. 
OCR READ 'RIGHT V.2.01 
PC PAINTBRUSH PLUS FOR WINDOWS 
PIZZAZ PLUS V.2.0 
PRINT Q V.4.0 

PUBLISHER’S PAINTBRUSH V.1.6 
PUBTECH BATCHWORKS V.1.03 
QRAM 

RAILROAD TYCOON 
READ IT O.C.R. V.l.l 
SMARTCOM III V.l.l 
SPINNAKER PLUS 
STREAMLINE WINDOWS V.l.l 
SUPERFONTS WINDOWS 
TIFFANY PLUS 1.2 

TIMEWORKS DESKTOP PUBL.1.2 *DEUT.* 
WINDOW SPELL V.3.06 
WINDOWS EXPRESS V.3.0 
WORDSTAR V.6.0 
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Editorial—i 



Liebe Leserinnen 
und Leser, ... 


wenn man angesichts der wieder anstehenden EDV-Messe CeBIT über die rasante 
Entwicklung der EDV von den Anfängen bis heute nachdenkt, können sich zwiespälti¬ 
ge Gefühle einschleichen. 

Mit Sicherheit haben Computer eine Menge verändert, helfen, wo früher Hilfe kaum 
möglich war, und sind aus vielen Produktionsbereichen nicht mehr wegzudenken. Für 
Computer sprechen unzählig viele positive Aspekte. 

Aus der Vergangenheit ist aber bekannt, daß manche Technik, vorgesehen für friedli¬ 
che und konstruktive Nutzung, auch für weniger friedvolle und kaum konstruktive Be¬ 
reiche eingesetzt wurde — im EDV-Bereich bei Großrechnern ja schon gang und gäbe. 
Die rasante Entwicklung der EDV und die menschliche Neigung, etwas Gutes “eben 
auch mal“ für etwas Schlechtes zu nutzen, läßt eine berühmte Frage aufkommen: Quo 
vadis, Computer? 

Ich möchte hier nicht auf die Szenarien in vielen Science-fiction-Stories und -Filmen 
eingehen, in denen^in künftiges Computer-Zeitalter in düstersten Grautönen darge¬ 
stellt wird. 

Nichtsdestotrotz basieren manche dieser Fiktionen auf purer Phantasie - die sich aber 
nur zu oft an schon Gewesenem anlehnt und den berühmten Faden einfach weiter¬ 
spinnt. 

Seit Beginn des technischen Zeitalters geschieht es ständig, daß irgendeine Hoch¬ 
technologie, ohne völlig ausgereift zu sein, auf die Menschheit losgelassen wird - 
nicht aus dringenden Gründen, sondern aus Profitgier, Prestigesucht und aufgrund po¬ 
litischen Drucks. 

Das führt dann ebenso häufig zu Pannen oder, genauer gesagt, Katastrophen mit zu be¬ 
klagenden Opfern. 

Bei all der Freude, die auch mir das Arbeiten am Computer macht - nicht nur beruf¬ 
lich, sondern auch privat bleibt deshalb immer ein “kleiner Mann im Ohr“, der 
still, aber stetig seine Warnungen wispert - und auch nicht damit aufhört. 

Es wäre angebracht, gerade, nachdem der "Kalte Krieg“ beendet zu sein scheint, den 
Daumen draufzuhallen, daß eine so nützliche, hilfreiche und interessante Technik 
künftig nicht weiter fehlverwendet wird. 

Es darf nicht wahr werden, wovor viele Fiktionen unterschwellig warnen: daß die Ma¬ 
schine eines Tages den Menschen beherrscht. Anders herum ist der richtige Weg - ob 
ihn die technische Entwicklung und der Mensch werden einhalten können ...? 


Mit bestem Gruß 
Ihr 



toi 

Thomas Kallay 
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DIGIGLOBE - 

Leserwettbewerb 

Ein interessantes Programm, 
das man noch verbessern kann 

Mit DIGIGLOBE stellen Sie einen Globus auf dem CPC dar, der Ihnen 
gewünschte Orte anzeigt. Das Programm selbst ist sehr interessant 
- und bietet die Möglichkeit, mehr daraus zu machen: Wir rufen auf zum 
Leserwettbewerb! 


Es gibt Programme, die sind gut und 
brauchen nicht mehr verändert zu wer¬ 
den. Es gibt aber auch Programme, die 
ebenfalls gut sind, jedoch - vielleicht 
auch absichtlich - viele Verbesse¬ 
rungsmöglichkeiten bieten. Der beson¬ 
dere Reiz einer solchen Aufgabe liegt 
darin, daß man unter Umständen schon 
bald eine Idee hat - sich aber zunächst 
in die Programmier-Technik des Pro¬ 
gramms “einfuchsen“ muß. 

Doch zunächst zur “Urversion“ des 
Programms. DIGIGLOBE zeichnet 
unseren Planeten in jeder beliebigen 
Lage auf den Bildschirm Ihres CPC 
und bietet die Zeichnung von Meridia¬ 
nen sowie Breitenkreisen mit frei wähl¬ 
barer Grad-Einteilung. Darüber hinaus 
kann der Globus auch transparent dar¬ 
gestellt werden. Nach dem Start ver¬ 
langt das Programm die Eingabe ver¬ 


schiedener Daten. Die jeweiligen Op¬ 
tionen können durch Eingabe ihres An¬ 
fangsbuchstabens angewählt werden. 
Zunächst sollte man sich mit den Funk¬ 
tionen der Winkel Alpha, Beta und 
Delta vertraut machen und verschiede¬ 
ne Einstellungen vornehmen. Die Win¬ 
kel beschreiben , die gewünschte Dre¬ 
hung des Planeten. Die jeweilige Ein¬ 
gabe muß in Dezimalzahlen erfolgen. 

In der Normalstellung blicken Sie di¬ 
rekt auf den Schnittpunkt von Äquator 
und Greenwich-Meridian. Alpha dreht 
den Planeten zunächst um seine eigene 
Achse, Delta “kippt“ den Globus dann 
nach vorne (positive Werte) bezie¬ 
hungsweise nach hinten (negative Wer¬ 
te). Beta dreht ihn schließlich noch um 
die Achse, die jetzt (nach der Opera¬ 
tion von Delta) auf dem Bildschirm 
senkrecht steht. Am besten probieren 


Sie einfach einige Werte aus, um diese 
geografischen Funktionen kennenzu¬ 
lernen. 

DIGIGLOBE stellt den 
Globus aus verschiedenen 
Ansichtswinkeln dar 

Die Option Transparent (Auswahl: j/n) 
erstellt den Globus mit oder ohne 
durchscheinende Rückseite. Gitter 
stellt den Abstand des Gitternetzes ein, 
wobei mit dem Wert 0 kein Gitter ge¬ 
zeichnet wird. Ein weiterer Eingabe¬ 
wert ist die Schrittweite (determiniert 
die Darstellungsgröße des Globus). Sie 
sollte jedoch nicht zu groß gewählt 
werden, da sonst die Kugel eckig wird. 
Zu klein sollte der Wert aber auch nicht 
sein, da der Bildschirmaulbau sonst zu 
lang dauert - 10 ist ein guter Wert für 
den Anfang. 

Wenn Sie einen bestimmten Ort su¬ 
chen, geben Sie diesen nach Anwahl 
von Ort ein. Ebenso können Sie aber 
auch einen “kleinen Bummel“ machen, 
indem Sie nach Anwahl von Ort “Z“ 
eingeben - in alphabetischer Reihen¬ 
folge können Sie nun mit den Cursor- 
Tasten die bereits gespeicherten Orte 
“durchblättern“. 

Der angewählte Ort wird mittig auf dem 
Globus angezeigt, weil die Werte für Al¬ 
pha und Beta automatisch passend einge¬ 
stellt werden. Sofern Sie einen neuen Ort 
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Programm—i 


- also auch Ihren Wohnort - angezeigt 
haben wollen, geben Sie ihn einfach ein. 
Das Programm erfragt dann die exakten 
Längen- und Breitengrade, die Sie bei¬ 
spielsweise einem großen Atlas entneh¬ 
men können. 

Auch Ihren Wohnort können 
Sie sich anzeigen lassen 


Dabei ist auf eine sehr genaue Eingabe 
zu achten - also eventuell führende 
Nullen, Leerschritte sowie die Him¬ 
melsrichtungen als Buchstaben ange¬ 
ben. Die Stadt Berlin hat zum Beispiel 
folgende Werte: 

13°19'59''0 
52°30' 0' 'N 

Sind alle Eingaben korrekt erfolgt, wird 
der Ort abgespeichert und kann künftig 
jederzeit aufgerufen werden. Die Funk¬ 
tionen der 0/7-Option im Überblick: 

- Ortsnaraer.eingabe 

- <0> = ordnet die Orte in der Datei 
DIGIGL0B.DAT alphabetisch 

- <Z> = zeigt die Orte alphabetisch 

- <D> = löscht einen gewählten Ort 

- <E> = übernimmt die Werte von Alpha 
und Delta in den Datensatz für den ein¬ 
gestellten Ort 

- <S> = speichert die Datei DIGI- 
GL0B.DAT mit den Änderungen 

Das Programm liest die Daten-Datei 
beim Programmstart jedesmal neu ein 
und reserviert zwanzig Speicherplätze 
für Neueingaben. Sind zwanzig neue 
Orte eingegeben, sollten Sie sie mit 
<S> abspeichern und das Programm 
neu starten. So bekommen Sie dann 
wieder zwanzig neue Speicherplätze. 

Farbanpassungen sind möglich 

Sofern Sie einen Farbmonitor besitzen, 
können Sie die Farben des Globus än¬ 
dern. Dazu müssen Sie in Zeile 1280 
des Listings DIGIGLOB.BAS verschie¬ 
dene Werte ersetzen. Dabei bedeuten: 
fr. = Hintergrundfarbe 
fk = Farbe Kontinent 1 
fv = Farbe Kontinent 2 
fg = Gitterfarbe 

Die Farbwerte richten sich nach der 
festgelegten Farbtabelle des CPC. 
Um die Darstellung des Globus zu star¬ 
ten, können Sie den Automatik-Modus 
wählen, der dann wahllos Orte aus¬ 
sucht und den Globus entsprechend 
aulbaut. Bei erfolgter individueller 
Voreinstellung aber, beispielsweise 
durch Eingabe eines Ortes, wählen Sie 
Zeichnen an. Auch bei diesen beiden 
Optionen aktivieren die jeweiligen, in 
Klammem gesetzten Buchstaben die 
entsprechende Funktion. 


Bild 1: Das Eingangs¬ 
menü von DIGIGLOBE 


DIGIGLOBE 


< A >lpha s 2S° 

<B)eta : 0® 

< D)e1ta s 279®49*59" 

(T)ransparent :Nein 
<G>i t ter: 28® 

(S)chrittweite : S® 

<0 >rt: Miami 

Jli? in H r9r if2 df f rb ? * Schwär: 

I* leucht« 

<2>eichr»en (U)oreinstel lung A(u)ton*tik 


«uohtend Hviss 
iHttfi 

: leuchteort Rot 


Der Bildschirmaulbau dauert etwa 
zwei Minuten - und der Globus 
“steht“ auf Ihrem Monitor. Der vorher 
gewählte Ort wird sowohl in der obe¬ 
ren rechten Ecke des Bildschirms mit 
der Angabe des Namens sowie des 
Längen- und Breitengrads angezeigt 
als auch auf dem Globus selbst mit ei¬ 
nem blinkenden Punkt. 

Zu den Listings 

Das komplette DXGIGLOBE-Programm 
setzt sich zusammen aus den Listings 
DIGIGLOB.BAS und DIGIGL02.BAS. 
Letzteres muß vor dem ersten Pro¬ 
grammstart aufgerufen werden und er¬ 
zeugt die Daten-Datei DIGIGLOB.DAT. 
Mit dem 464-Emulator aus Ausgabe 
2/3'91 läuft das Programm auch auf dem 
CPC 464. 

Sollte jemand die Geduld und Muße ha¬ 
ben, die Berechnungen für die Abbil¬ 
dung der Kugeloberfläche auf die Ebe¬ 
ne des Bildschirms in Integer-Arithme- 
tik und Maschinencode umzusetzen und 
womöglich noch mit einer schnelleren 


LINE-Routine zu versehen, könnte so 
eine “animated“ DIGIGLOBE-Version 
entstehen. 

Außerdem könnte man versuchen, die 
Kontinente vollfarbig darzustellen, die 
Darstellungsfarben Menü-wählbar zu 
machen und die jeweils großen Städte ei¬ 
nes Landes generell auf dem Globus ab¬ 
zubilden, wobei der je weils aufgerufene 
Ort dann intensiver, größer und anders¬ 
farbig blinkend gekennzeichnet wird. 
Interessant wäre es zudem, die Ortsda¬ 
tei komplett auf Diskette zu verwalten, 
so daß die Ortsliste nur noch vom Disket¬ 
tenspeicherplatz beschränkt wird und 
dann nicht nur pro Durchgang zwanzig, 
sondern beliebig viele Neueintragungen 
möglich würden. 


Wer schreibt die beste 
DIGIGLOBE-Version? 
- Machen Sie mit bei 
unserem Wettbewerb! 


Ganz ausführlich könnte man es zudem 
machen, wenn zu den Orten auch noch 
weitere Informationen ausgegeben 


Bild 2: Der Globus - 
iransparen! dargestellr 
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würden - beispielsweise die Einwoh¬ 
nerzahl, Stadtfläche, Höhe über NN und 
so weiter und so weiter ... 
DIGIGLOBE ist also nicht nur ein Pro¬ 
gramm zum Kennenlernen unseres Glo¬ 
bus, sondern bietet auch die Möglich¬ 
keit, es zu verbessern. 

Wir rufen daher alle Leser, die Lust ha¬ 
ben, sich Gedanken zu machen und zu 
experimentieren, auf: 

Schicken Sie Ihre Lösung, die auf dem 
hier vorgestellten Programm basieren 
muß, an die Redaktion mit dem Stich¬ 
wort DIGIGLOBE! - Einsendeschluß 
ist der 31. Juni 1991 (Poststempel). 
Neue, hier vielleicht nicht angesproche¬ 
ne Ideen sind selbstverständlich will¬ 
kommen. 


Die beiden besten Beiträge werden zu¬ 
sammen mit einer Vorstellung der Auto¬ 
ren veröffentlicht. Die Preise 1 bis 3 
werden vom Chefredakteur persönlich 
im Verlagshaus an die Gewinner überge¬ 
ben. Alle anderen Preisträger werden 
schriftlich benachrichtigt. Der Rechts¬ 
weg ist ausgeschlossen. Mitarbeiter vom 
Daten- und Medienverlag und deren An¬ 
gehörige können nicht teilnehmen. 

Die Preise 

1. Preis: 

ein brandneuer CPC 6128 Plus mit Farb¬ 
monitor 

2. Preis: 

der “kleine Bruder“ des CPC 6128 Plus, 


der neue 464 Plus mit Monochrom-Mo- 
nitor 

3. Preis: 

ein24-Nadel-Drucker von AMSTRAD 

4. - 6. Preis: 

Warengutscheine DMV-Verlag, 

Wert je 300,— DM 

7. — 10. Preis: 

Warengutscheine DMV-Verlag, 

Wert je 150.- DM 

10. — 20. Preis: 

Warengutscheine DMV-Verlag, 

Wert je 100,— DM 

In diesem Sinne, viel Spaß mit DIGI¬ 
GLOBE und noch mehr Erfolg für den 
Wettbewerb wünschen 

Marian Maier und Thomas Kallay 


für 464-664-6128 



1 REM ************************** [1417] 

2 REM * DIGIGLOB * * [931] 

3 REM * * [403] 

4 REM * Listing 1 * [1681] 

5 REM ************************** [1417] 

10 REM Init [848] 

20 CLEAR:MODE 1:INK 0,2:INK 1,26:INK 2,6:1 [9998] 
NK 3,18:BORDER 2:PEN 3:PAPER 0:ORIGIN 215 
200:LOCATE 11,2:PRINT "DIGIGLOBE" 

PEN l:LOCATE 11 , 2 :1=17:h=l:fa=l:GOSUB 240 
GOSUB 1660 

30 SYMBOL AFTER 256:ORIGIN 215,200:DEG:GRA [13073] 
PHICS PEN 1:SYMBOL AFTER 254:SYMBOL 254,51 
,51,102: SYMBOL 255,60,102,102,60 :GOSL'B 128 
0:rx=210:ry=196:t$(l)="Nein":t$ (2)=" Ja ": 

DIM fa$(26):RESTORE 1440:FOR i=0 TO 26:REA 
D fa$(i):NEXT i 

40 meS="abdtgsohknizvu":a=0:b=0:f=0:g=0:p= [4097] 
10:v=l:da$="":CLS:GOTO 300 

50 REM Upro: Linie projezieren und zeichne [2561] 

60 q=SIN(o-f):e=COS(o-f):u=COS(1):W=SIN(1) [7762] 
:z=rx*(w*h*k-u*q*j+u*e*m*k):IF z<0 THEN IF 
v=2 THEN fa=2-(fa=l):ELSE t=0 „ 

70 uu=u*e :x=rx* (u*q*k+w*h* j+uu*m*;j):y=ry*( [5444] 
w*m-uu*h):IF t THEN DRAW x,y,fa:ELSE MOVE 

80 Y IF INKEYSo"" THEN f 1=1: RETURN: ELSE t=l [2023] 

:RETURN 

90 REM Hauptprogramm Zeichnen [2010] 

100 INK 0,fh:INK l,fk:INK 2,fg:INK 3,fv:fl [5022] 
=0:BORDER fh:PEN 1:PAPER 0:CLS:RETURN 
110 REM Gitter zeichnen [1338] 

120 c=0:d=0:GOSUB 210:d=d+c:d=d-4*INT(d/4) [5792] 
:t=0:j=SIN(b):k=COS(b):h=SIN(a):m=COS(a):I 
F g=0 THEN GOTO 170 

130 FOR o=g TO 360 STEP g:FOR 1=90 TO -90 [6069] 

STEP -p:fa=2:GOSUB 60:IF fl THEN RETURN:EL 
SE NEXT:t=0:NEXT 

140 REM Falls Gitter parallel - hier zeich [1765] 

150 d=d+c:d=d-4*INT(d/4):FOR l=-90+g TO 90 [6561] 
-g STEP g:FOR 0=0 TO 360 STEP p:fa=2:GOSUB 
60:IF fl THEN RETURN:ELSE NEXT:t=0:NEXT 
160 REM Kontinente lesen und zeichnen [2191] 

170 RESTORE 1460:d=d+c:d=d-4*INT(d/4) [1603] 

180 READ n,1,o:IF n=0 THEN RETURN [2156] 

190 fa=l:GOSUB 60:IF fl THEN RETURN [1355] 

200 FOR i=2 TO n:READ 1,o:t=l:fa=l:GOSUB 6 [5140] 
0:IF fl THEN RETURN:ELSE NEXT:t=0:GOTO 180 
210 REM Silhouette [1035] 

220 t=l:MOVE rx,0:FOR i=0 TO 360 STEP p:x= [5270] 
rx*COS(i):y=ry*SIN(i):IF t THEN DRAW x,y,3 
:ELSE MOVE x,y 

230 NEXT:RETURN [940] 

240 REM Upro: BOX [829] 

250 x=POS(#0)*16-8-16-215:y=400-VPOS(#0)*1 [7704] 
6-8-200:MOVE X,y,fa:DRAWR 16+16*1,0:DRAWR 
0,16+16*h:DRAWR -16-16*1,0:DRAWR 0,-16-16* 
h: RETURN 

260 REM Upro: Winkelstring bauen [1610] 

Listing: DIGIGLOB.BAS 


[10299] 


#")+"'":wi=INT( (wi-m) *60 ) : wi^=wi>+uc.ui v wi, 

"##")+CHR$(254):IF m=0 AND wi=0 THEN wi$=L 
EFT$(wi$,4)+" " 

280 RETURN ?55] 

290 REM Hauptmenue 

300 REM INPUT "alpha :";a:INPUT "beta :"; [14442] 
b:INPUT "delta :";f:INPUT "Gitter :";g:INP 
UT "Schritt :";p:INPUT "Transparenz (j/n) 
";v$:v=l-(LEFT$(vS,l)="j"):CLS:GOSUB 90:go 
sub 110:goto 300 

310 INK 0,2:INK 1,26:INK 2,6:INK 3,18:BORD [9657] 
ER 2:PEN 3:PAPER 0:LOCATE 11,2:PRINT "D I 
G I G L O B E":PEN 1:LOCATE 11,2 : 1 = 17:h=l: 
fa=l:GOSUB 240:LOCATE 1,5 

320 PEN l:PRINT "(A)Ipha:";:wi=a:GOSUB 260 [11474] 
:PEN 3:PRINT wi$:PEN 1:PRINT:PRINT"(B)eta 
:wi=b:GOSUB 260:PEN 3:PRINT wi$:PEN 1:P 
RINT:PRINT"(D)elta:";:wi=f:GOSUB 260:PEN 3 
:PRINT wi$:PEN 1 

330 PRINT:PRINT "(T)ransparent:";:PEN 3:PR [2470] 
INT t$(V) 

340 PRINT:PEN 1:PRINT "(G)itter:";:PEN 3:1 [6651] 

F g=0 THEN PRINT t$(l):ELSE wi=g:GOSUB 260 
:PRINT wi$ 

350 PRINT:PEN 1:PRINT "(S)chrittweite:";:P [4336] 
EN 3:wi=p:GOSUB 260:PRINT wi$ 

360 PRINT:PEN 1:PRINT "(O)rt:";:PEN 3:PRIN [15197] 
T da$:PEN 1:PRINT:PRINT "(H)intergrundfarb 
e:";:PEN 3:PRINT fa$(fh):PEN 1:PRINT "(K)o 
ntinentfarbe l:";:PEN 3:PRINT fa$(fk):PEN 
1:PRINT "Ko(n)tinentfärbe 2:";:PEN 3:PRINT 
fa$(fv) 

370 PEN 1:PRINT "G(iJtterfarbe :";:PEN [9261] 

3:PRINT faS(fg):PRINT:PEN 1:PRINT "(Z)eic 
hnen (V)oreinstellung A(u)tomatik" 

380 ta$=LOWER$(INKEYS):IF ta$="" THEN 380 [1236] 

390 po=INSTR(me$,ta$):IF po=0 THEN 380 [3689] 

400 fl=0:ON po GOSUB 420,460,500,540,570,6 [3447] 
30,660,1070,1090,1110,1130,1150,1270,1290 
410 IF fl THEN 290rELSE 380 [698] 

420 REM Alpha [655] 

430 LOCATE 20,5:PEN 1:INPUT "> ",a$:LOCATE [4172] 
20,5:PRINT STRINGS(2+LEN(a$),32):IF a$="" 

THEN RETURN 

440 a=VAL(a$):a=a MOD 360:IF a<0 THEN a=a+ [2710] 
360: 

450 wi=a:GOSUB 260:LOCATE 9,5:PEN 3:PRINT [2432] 
wiS:RETURN 

460 REM Beta [713] 

470 LOCATE 20,7:PEN 1:INPUT "> ",a$:LOCATE [6294] 

20,7:PRINT STRINGS(2+LEN(a$),32):IF a$="" 

THEN RETURN 

480 b=VAL(a$):b=b MOD 360:IF b<0 THEN b=b+ [2270] 
360 

490 wi=b:GOSUB 260:LOCATE 9,7:PEN 3:PRINT [3387] 
wi$:RETURN 

500 REM Delta [494] 

510 LOCATE 20,9:PEN 1:INPUT "> ",a$:LOCATE [5572] 

20,9:PRINT STRINGS(2+LEN(aS),32):IF a$="" 

THEN RETURN 

520 f=VAL(a$):f=f MOD 360:IF f<0 THEN f=f+ [2112] 
360 

530 wi=f:GOSUB 260:LOCATE 9,9:PEN 3:PRINT [4261] 
wi$:RETURN 

Listing: DIGIGLOB.BAS 
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540 REM Transparent 

550 IF v=l THEN v=2:ELSE V=1 

560 LOCATE 15,11:PEN 3:PRINT t$(v):RETURN 

570 REM Gitter 

580 LOCATE 26,13:PEN 1:INPUT "> ",a$:LOCAT 
E 26,13:PRINT STRINGS(2+LEN(a$),32):IF a$= 
"" OR VAL(a$)<0 OR VAL(a$)>360 THEN RETURN 
590 g=VAL(a$):LOCATE 10,13:PEN 3 
610 IF g=0 THEN PRINT "Nein ":ELS 

E wi=g:GOSUB 260:PRINT "Alle ";wi$ 

620 RETURN 

630 REM Schrittweite 

640 LOCATE 26,15:PEN 1:INPUT "> ",a$:LOCAT 
E 26,15:PRINT STRINGS(2+LEN(a$),32):IF VAL 
(a$)< = 0 OR VAL(a$)>12 THEN LOCATE 1,1:PRIN 
T CHR$(7):RETURN 

650 p=VAL(a$):LOCATE 16,15:PEN 3:wi=p:GOSU 
B 260:PRINT wiS:RETURN 
660 REM Ort 

670 PEN 1:GOSUB 1060:INPUT "",a$:IF a$= H " 
THEN da$="":LOCATE 7,17:GOSUB 1060:RETURN 
680 IF a$="s" THEN GOSUB 1710:GOSUB 1060:P 
EN 3:PRINT daS:RETURN 

690 IF a$="z" THEN GOSUB 950:IF a$ = "" THEN 
GOSUB 1060:da$ = "":RETURN 
700 IF aS="o" THEN 1010 
710 IF da$<>"" AND a$="d" THEN 780 
720 IF da$<>"" AND a$="e" THEN 800 
730 po=INSTR(a $," "):IF po THEN a$=LEFT$(a 
$,po-l)+MID$(a$,po+l):GOTO 730 
740 FOR r=0 TO mo-l:IF LOWERS(a$)<>LOWER$( 
o$(r)) THEN NEXT r:GOTO 840 
750 da$=o$(r):GOSUB 1060:a=o(r,0):IF a<0 T 
HEN a=a+360 

760 f=o(r,1):IF f<0 THEN f=f+360 

770 f1=1:RETURN 

780 REM Eintrag loeschen 

790 FOR i=r TO mo:o$(i)=o$(i+1):o(i,0)=o(i 
+1,0):o(i,l)=o(i+l,l):NEXT:mo=mo-l:ml=ml+l 
:da$="":GOSUB 1060:RETURN 
800 REM Edit 

810 IF f>180 THEN o(r,1)=f-360:ELSE o(r,l) 

820 IF a>180 THEN o(r,0)=a-360:ELSE o(r,0) 
=a 

830 LOCATE 7,17:PEN 3:PRINT da$:RETURN 
840 REM Neuer Eintrag 

850 GOSUB 1060:LOCATE 1,17:INPUT "Laenge ( 
ggg mm ss w/o):",l$:iF 1$='"' then gosub io 
60:f1=1:RETURN 

860 IF LEN(1$)<>11 THEN PRINT CHR$(7);:GOT 
O 850 

870 gg=VAL(LEFTS(IS,3)):mm=VAL(MID$(1$,5,2 
)):ss=VAL(MID$(1$,8,2)):r$=LOWER$(RIGHTS(1 
S,1)):IF gg<0 OR gg>180 OR mm<0 OR mm>59 O 
R SS<0 OR ss>59 OR r$o"w" AND r$o"o" THE 
N PRINT CHRS(7);:GOTO 850 
880 o$(mo)=a$:w=gg+mm/60+ss/3600:IF r$="w" 
THEN w=-w 

890 da$=a$:o(mo,1)=w:GOSUB 1060:LOCATE 1,1 
7:INPUT "Breite (ggg mm ss N/S):",1S:IF LE 
N(1$)<>11 THEN PRINT CHR$(7);:GOTO 890 
900 gg=VAL(LEFTS(1$,3)):mm=VAL(MID$(IS,5,2 
)):ss=VAL(MID$(1$,8,2)):r$=LOWER$(RIGHTS(1 
$,1)):IF gg<0 OR gg>180 OR mm<0 OR mm>59 O 
R ss<0 OR ss>59 OR r$o"n" AND r$o"s" THE 
N PRINT CHR$(7);:GOTO 890 
910 o$(mo)=a$:w=gg+mm/60+ss/3600:IF r$="s" 
THEN w=-w 

920 o(mo,0)=w:mo=mo+l:ml=ml-l:a=o(r,0):IF 

a<0 THEN a=a+360 

930 f=0(r,1):IF f<0 THEN f=f+360 

940 LOCATE 1,17:PRINT STRINGS(40,32):f1=1: 

RETURN 

950 REM Listen 

960 IF mo=0 THEN a$="":RETURN 

970 FOR i=0 TO mo-l:GOSUB 1060::PEN 3:PRIN 

T o$(i) 

980 ta$=LOWER$(INKEYS):IF ta$="" THEN 980 
990 IF ta$=CHR$(13) THEN a$=o$(i):RETURN 
1000 NEXT:GOTO 970 
1010 REM Datei ordnen (Naiv !) 

1020 FOR i=0 TO mo-l:FOR j=i+l TO mo-l:IF 
o$(j)<o$(i) THEN o$=o$(i):o$(i)=o$(j):o$(j 
)=o$:o=o(i,0):o(i,0)=o(j,0):o(j,0)=o:o=o(l 
,1):o(i,l)=o(j,1):o(j,l)=o 
1030 NEXT 

1040 LOCATE 7,17:PEN 3:PRINT öS(i);STRINGS 
(33-LEN(o$(i)),32) 

1050 NEXT:GOSUB 1060:PEN 3:PRINT da$:RETUR 
N 

1060 LOCATE 7,17:PRINT STRINGS(33,32);:LOC 

ATE 7,17:RETURN 

1070 REM Hintergrundfarbe 


[1820] 

[1539] 

[3026] 

[547] 

[6466] 


[3255] 

[4413] 

[555] 

[1207] 

[7448] 


[4533] 

[988] 

[4920] 

[4962] 

[3215] 

[999] 

[1768] 

[1509] 

[5302] 

[2853] 

[3164] 

[1342] 

[193] 

[1748] 

[5554] 


[457] 

[1412] 

[1195] 

[1089] 

[939] 

[6985] 


[2092] 

[8493] 


[3209] 

[7963] 


[8752] 


[2932] 

[3296] 

[1342] 

[3882] 

[933] 

[864] 

[2730] 

[ 1212 ] 

[2898] 

[997] 

[1248] 

[7056] 


[350] 

[2270] 

[1832] 

[2938] 

[2619] 


1080 fh=fh+l:IF fh=27 THEN fh=0:LOCATE 20, [5389] 
19:PEN 3:PRINT fa$(fh);STRINGS(19-LEN(faS( 
fh)),32):RETURN 

1090 REM Kontfarbe 1 [672] 

1100 fk=fk+l:IF fk=27 THEN fk=0:LOCATE 20, [9810] 
20:PEN 3:PRINT fa$(fk);STRINGS(19-LEN(fa$( 
fk)),32):RETURN 

1110 REM Kontfarbe 2 [667] 

1120 fv=fv+l:IF fv=27 THEN fv=0:LOCATE 20, [6453] 

21:PEN 3:PRINT fa$(fv);STRINGS(19-LEN(fa$ 
fv)),32):RETURN 

1130 REM Gitterfarbe [1325] 

1140 fg=fg+l:IF fg=27 THEN fg=0:LOCATE 20, [5102] 

22:PEN 3:PRINT fa$(fg);STRINGS(19-LEN(fa$( 
fg)),32):RETURN 

1150 REM Zeichnen [1312] 

1160 GOSUB 90 [824] 

1170 PEN 1:IF da$<>"" THEN 1190 [2450] 

1180 WINDOW #0,28,40,1,26:LOCATE 1,1:PRINT [16158] 

"Daten:":PRINT:PRINT CHR$(176);"=";:wi=a: 

GOSUB 260:PRINT wi$:PRINT CHR$(177);" = "; :w 
i=b:GOSUB 260:PRINT wi$:PRINT CHR$(179);"= 

:wi=f:GOSUB 260:PRINT wi$:WINDOW #0,1,80 
,1,26:GOTO 1220 

1190 LOCATE 39-LEN(da$),1:PRINT LEFTS(da$, [5538] 
20);:LOCATE 28,3:wi=ABS(o(r,1)):GOSUB 260: 

PRINT wi$;:IF o(r,l)<0 THEN PRINT "W";:ELS 
E PRINT "O"; 

1200 LOCATE 28,4:wi=ABS(o(r,0)):GOSUB 260: [7289] 
PRINT wi$;:IF o(r,0)<0 THEN PRINT "S";:GOT 
O 1220:ELSE PRINT "N";:GOTO 1220 
1210 MOVE -2,-2:DRAWR 4,0,1,1:DRAWR 0,4:DR [4184] 
AWR -4,0:DRAWR 0,-4:RETURN 

1220 GOSUB 110:IF fl THEN 1260:ELSE IF da$ [3052] 
<>"" THEN EVERY 20,0 GOSUB 1210 

1230 WHILE INKEY$<>"":WEND [1786] 

1240 ta$=INKEY$:IF ta$="" THEN 1240 [946] 

1250 IF LOWERS(taS)="h" THEN GOSUB 1400:GO [21421 
TO 1180 

1260 MOVER 0,0,0,0:aa=REMAIN(0):f1=1:CLS:R [1758] 
ETURN 

1270 REM Voreinstellung [1626] 

1280 fl=l:a=0:b=0:f=0:g=0:p=10:v=l:da$="": [4247] 
fh=0:fk=26:fg=6:fv=13:GOSUB 1060:RETURN 
1290 REM Automatik zeichnen [1121] 

1300 r=INT(RND*mo):da$=o$(r):a=o(r,0):IF a 2877] 
<0 THEN a=a+360 

1310 f=o(r,1):IF f<0 THEN f=f+360 [1342] 

1320 GOSUB 90 [824] 

1330 LOCATE 39-LEN(da$),1:PRINT LEFTS(da$, [5538] 
20);:LOCATE 28,3:wi=ABS(o(r,1)):GOSUB 260: 

PRINT wi$;:IF o(r,l)<0 THEN PRINT "W";:ELS 
E PRINT "O"; 

1340 LOCATE 28,4:wi=ABS(o(r,0)):GOSUB 260: [5218] 
PRINT wi$;:IF o(r,0)<0 THEN PRINT "S";:ELS 
E PRINT "N"; 

1350 GOSUB 110:IF fl THEN MOVER 0,0,0,0:aa [4884] 
=REMAIN(0):f1=1:CLS:RETURN 

1360 EVERY 25,0 GOSUB 1210:FOR i=0 TO 2000 [2610] 
1370 IF INKEYSo"" THEN MOVER 0,0,0,0:aa=R [3572] 
EMAIN(O):fl=l:CLS:RETURN 

1380 NEXT [350] 

1390 MOVER 0,0,0,0:aa=REMAIN(0):f1=1:GOTO [2125] 
1300 

1400 REM Hardcopy [947] 

1410 IF ta$="h" AND da$<>"" THEN WINDOW #1 [1400] 

,28,40,1,26:CLS #1 

1420 REM Hier Hardcopyroutine einfuegen [2061] 

1430 RETURN [555] 

1440 DATA Schwarz,Blau,leuchtend Blau,Rot, [19161] 
Magenta,Mauve,leuchtend Rot,Purpur,leuchte 
nd Magenta,Gruen,Blaugruen,Himmelblau,Gelb 
, Weiss,Pastellblau,Orange,Rosa,Pastellmage 
nta,leuchtend Gruen,Seegruen,leuchtend Bla 
ugruen,Limonengruen,Pastellgruen 
1450 DATA Pastellblaugruen,leuchtend Gelb, [4391] 
Pastellgelb,leuchtend Weiss 

1460 REM Geographiedaten [911] 

1470 DATA 218,41,29,42,35,41,38,42.5,42.3, [10562] 
46,37,48,39,46.5,35,46,37,44.3,34,45.5,32, 

46.2.33.5.47.31.42.5.27.41.29.40.8.23.38.2 
4,36.5,22.8,40.5,19.5,42,19.5,45.7,13.7,45 
.5,12.3,44.4,12.3,43.6,13.6,42.5,14.1,40,1 
8.5,40.5,17,39.7 

1480 DATA 16.5,39,17.2,38,15.6,38,12.5,36. [9602] 
6,15,38.9,16.1,40,15.7,41.3,13,43,10.5,44. 
3,8.9,43.2,6.2,43.5,4,42.7,3,41.8,3.3,39.5 
,-.4,38.7,.3,36.6,-2.1,36.5,-4.8,36,-5.4,3 
7.1,-6.7,37,-8.8,38.6,-8.8,38.6,-9.4,41.2, 

-8.6,4 3.1,-9.3,43.7,-7.7,43.3,-1.5 

1490 DATA 46.1,-1.2,47.3,-2.5,48,-4..7,48.6 [10683] 

,-4.7,48.8,-3.1,48.7,-1.7,49.8,-2,49.8,-1. 

3,49.4,-1.1,49.3,-.1,49.7,.2,50.2,1.5,50.9 
,1.6,51.4,3.6,53.3,4.7,54,8.3,57,8.1,57.6, 

10.7.56.4.11.9.54.5.10.54.14.2 


Listmg DIGIGLOB.BAS 


Listing: DIGIGLOB.BAS 


4/5’91 PC 9 




r~ Proaramm 



[11676] 


[8223] 


[9771] 


1500 DATA 55,20,59,22,60,30,60.6,28,60,22, [10359] 

63,21,65.6,26,66,22,61,17,60,19,56,16,55.4 

,13,59,10.3,58,7.6,58.5,6,62.5,5.5,64,10,7 

0.3,19,71.2,27,67.8,41.5,66.5,39,67.2,33,6 

4.5,35,64,40,68.2,44,69,67,72,70,77,112,74 

,110,72,130,70 

1510 DATA 175,67,190,66,177,63,180,60,170, [10377] 

60,163,55,162,51,157,57,156,62,163,62,157, 

59,153,59,143,55,135,54,141,48,140,39,128, 

35,129.5,34,126,39,125.5,41,121,38.5,118,3 

0,122,23,117,21,110,22,108,19,105.5,14.5,1 

09,11.5,109,8 

1520 DATA 105,13,100.5,9,99,5,103.5,1,104, [11676] 

4,101,9,98,17,97,23,92,15,80,10,80,8,77,12 

,74.5,21,72,25,67,25,56,30,50,29.5,49,24,5 

3,25,56,24,56,23,60,17,56,12.5,44,28,35,28 

,33,15,40,10.5,45,12,51.4,4,47.7,-5,39,-16 

,41,-20,35,-25,35,-26 

1530 DATA 33,-29,32,-34,26,-35,20,-18,12,- [8223] 
11,14,-1,9,3,10,4.6,8.4,4.3,5.9,6.5,4.3,4. 

8, -2,4.6,-7.7,7.8,-12.9,9.6,-13.4,12.4,-16 
.7,14.9,-17.6,17.2,-16.1,21.3,-17.2,28,-12 
.9,30.3,-9.5,31,-9.8,32,-9.8,33.3,-8.3 

1540 DATA 33.9,-6.9,35.8,-6,35.9,-5.4,35.2 [9771] 

,-4.7,35,-2,36.4,1,37.3,10.2,36.7,10.4,37, 

11,36.1,10.5,35.2,11.1,34,10,32.8,12.5,32. 

94,13.2,32.4,15.3,31.5,15.6,30,19,31,20,32 

,19.7,33,22,31,29,31.6,31,31.2,33.5,37,36, 

37,28,40,26,41,29 

1550 DATA 19,58.5,-5,58.2,-1.8,56,-3.3,56, [9924] 
-2,53,.5,53,1.6,52.2,1.7,51.3,.8,51.3,1.5, 
50.9,1,50,-5.8,51.4,-3.7,51.7,-5,53.3,-4.5 
,53.3,-3,55,-3.5,54.7,-5,57.5,-6.5,58.5,-5 
,5,55.3,-6.5,54.3,-10,51.4,-10,52.2,-6.3,5 
5 3 -6 5 

1560 DATA 7,66.5,-22.5,65.4,-24.5,66.6,-16 [9357] 

,65,-13.5,63,-19,64,-22,66.5,-22.5,10,43,9 

.4,42.4,8.5,41.5,8.8,40.9,9.8,39.1,9.7,38. 

9.8.4.40.8.8.4.41.3.9.2.42.1.9.6.43.9.4.6, 
-13,49,-17,44,-25,44,-25,47,-15,50.5,-13,4 
9 

1570 DATA 12,60,-44,65,-40,70,-22,82,-15,8 [11921] 

3.6, -30,78.5,-73,76,-68,75.6,-59,70,-51,66 

,-53.5,61,-48,60,-44,84,63,-77,52,-56,50,- 

65,46,-64,43.7,-70.4,41.5,-70.7,40.6,-74,3 

7,-76,35.2,-75.7,31,-81.6,27,-80,25,-80.5, 

28,-82.7,29,-82.5,30,-84,30.3,-89,29 

1580 DATA -90,29.7,-94,27,-97.5,22,-97.7,1 [9416] 

9, -96,18.4,-94,19,-91,21,-90,21.6,-87,16,- 

89.15.6, -83,10.5,-83.5,9,-81.5,9.7,-79,8,- 
77,11,-75,12,-71,10.6,-63,4,-52,0,-50,-6,- 
34,-12,-39,-22,-41,-25,-48,-28,-48,-41,-63 
,-51,-69,-55,-65 

1590 DATA -55,-70,-50,-76,-37,-74,-18,-70, [9892] 

-6,-81,0,-81,6.6,-77.5,9,-79,7,-81,9.5,-85 

,13,-88,14,-91.5,16.2,-95,15.7,-96.6,19.6, 

-106,22,-105.7,29,-112.4,31.3,-113,31.6,-1 

15,30,-114.6,23,-109.5,25,-112.3,30,-115.9 

,34,-118.5 

1600 DATA 34.5,-120.7,39,-124,43,-124.5,48 [10258 
.5,-124.5,59,-138,61,-148,54,-165,59,-158, 
62,-166,68,-167,71,-157,68,-110,70,-82,60, 
-95,54,-80,63,-77,32,-10.5,142.4,-17.5,141 

,-15,135.5,-12,137,-11,132,-15,129,-14,127 

,-20 

1610 DATA 120,-20,114,-26,113,-32,116,-34. [12452 
5,115,-35.2,118,-31.5,130,-32.5,133.5,-35, 

135.5, -33,137.8,-35.2,137.5,-38,140.4,-39, 
143.4,-37.8,145,-39.2,146,-37.5,150,-34,15 
1,-32.7,152.7,-29,153.6,-25.6,153,-20,148. 

4, -18.8,146.3,-14.5,144.7,-14.7,144,-10.5 

1620 DATA 142.4,29,-63,-56,-64,-60,-66,-65 [13289 
,-73,-75,-73,-85,-73,-100,-75,-100,-73,-12 

5, -75,-137,-78,-165,-77.6,164,-72,170,-68, 
155,-66,135,-66,115,-66,90,-69.5,75,-68,70 
,-66,55,-69,40,-70,20,-70,0,-71,-10,-74,-2 
0,-78,-35,-75,-60,-67,-61,-64.3,-59,-63,-5 

1630 DATA 7,9.7,80,7,82,6.5,81.8,6.3,80.5, [11577 

6.4,80,8,79.7,9.7,80,22,45.5,141.8,43.3,14 

5.7,42,143,42.6,141.6,40.6,140,38.2,139.6, 

37,136.9,35.6,135.7,35.6,133,34,130.9,32.9 

,132,31.4,131.3,31.2,130.2,33.3,129.7,34,1 

30.9,34.5,135,33.5,135.7,36,140.6,39.8,142 

1640 DATA 42.5,139.7,43.5,141.4,45.5,141.8 [11326 

,11,6,95,1.7,98.8,-3.2,101.6,-5.9,105.7,-6 

.6,114.2,-8.6,114.5,-7.1,105.6,-2.9,105.9, 

.4,103.6,5,97.5,6,95,6,1.9,109.3,7,116.9,5 

,119.3,-4,116,-2.9,110.3,1.9,109.3,11,0,13 

0,-2.5,141,-6.5,148,-6.8,146.8,-10.7,151 

1650 DATA -7.7,144.3,-9.3,143,-8,138.4,-5. [1080E 

4,138.1,-4,133.1,0,130,14,-34.5,172.7,-36. 

7,175.9,-37.5,176,-38,177.3,-37.4,178.5,-4 

1.6.175.5, -40.6,172.5,-42.8,171,-46,166.2, 
-46.7,169.2,-40.2,175.3,-39.3,174,-37.7,17 

Listing DIGIGLOB.BAS 


[9357] 


[11921] 


[9416] 


[9892] 


[10258] 


[12452] 


[13289] 


[11577] 


[11326] 


[10808] 


4.8,-34.5,172.7,0,0,0 

1660 REM File lesen [734] 

1670 f1=0:ON ERROR GOTO 1700:OPENIN "digig [3501] 

lob.dat" 

1680 IF fl THEN DIM o$(20),o(20,1):mo=0:RE [2890] 
TURN 

1690 INPUT #9,mo:ml=20:DIM o$(mo+20),o(mo+ [10007] 
20,1):IF EOF THEN CLOSEIN:RETURN:ELSE FOR 
i=l TO mo:INPUT #9,o$(i-1),o(i-l,0),o(i-l, 

1):NEXT:CLOSEIN:RETURN 

1700 f1=1:RESUME NEXT [662] 

1710 REM File saven [591] 

1720 |ERA, "digiglob.dat" :OPENOUT "digiglob [7885] 

.dat":WRITE #9,mo:FOR i=0 TO mo-l:WRITE #9 
,o$(i),o(i,0),o(i,l):NEXT:CLOSEOUT:RETURN 

Listing: DIGIGLOB.BAS 


1 REM ******************** 

2 REM * DIGIGLOB * 

3 REM * * 

4 REM * Listing 2 * 

5 REM ******************** 

10 DIM O$(60),Ol(60),02(60) 

20 i=0:ON ERROR GOTO 40 

30 READ ol(i),o2(i),o$(i):i=i+l:GOTO 30 
40 OPENOUT "Digiglob.dat" 

50 WRITE #9,i-1 
60 FOR j=0 TO i-1 

70 WRITE #9,o$(j),ol(j),o2(j):PRINT o$(j) 
80 NEXT 

90 CLOSEOUT:END 

1000 DATA 52.33333, 4.75000»Amsterdam 

1010 DATA 38.00000, 23.66667»Athen 

1020 DATA 33.00000, 44.00000,Bagdad 


1000 DATA 52.33333, 4.75000»Amsterdam 

1010 DATA 38.00000, 23.66667»Athen 

1020 DATA 33.00000, 44.00000,Bagdad 

1030 DATA 12.00000, 111.00000,Bangkok 

1040 DATA -5.00000, 18.00000,Bangui 

1050 DATA 52.50000, 13.33333»Berlin 

1060 DATA 47.50000, 19.00000,Budapest 

1070 DATA -35.00000, -58.00000,BuenosAire 
s 

1080 DATA 44.50000, 26.00000,Bukarest 

1090 DATA -35.30000, 149.13333,Canberra 
1100 DATA 27.50000, 76.00000,Delhi 

1110 DATA 42.50000, -83.00000,Detroit 
1120 DATA 53.50000, -6.16667,Dublin 

1130 DATA 36.00000,-112.00000,GrandCanyo 


1140 DATA 71.00000, 24. 00000 ,Hammerfest 

1150 DATA 52.50000, 32.50000,Isfahan 

1160 DATA 35.00000, 73.00000,Islamabad 

1170 DATA 41.00000, 29.00000,Istanbul 

1180 DATA 31.66667, 35.33333»Jerusalem 

1190 DATA 30.00000, 3l.00000,Kairo 

1200 DATA -55.00000, -70.00000»KapHoorn 
1210 DATA -34.00000, 18.50000,Kapstadt 

1220 DATA 55.66667, 12.50000,Kopenhag 

1230 DATA 31.00000, 74.00000»Lahore 

1240 DATA 60.00000, 30.00000»Leningra 

1250 DATA 38.75000, -9.16667»Lissabon 

1260 DATA 51.50000, -0.11667»London 


1220 DATA 

1230 DATA 31.00000, 74.00000»Lahore 

1240 DATA 60.00000, 30.00000»Leningrad 

1250 DATA 38.75000, -9.16667»Lissabon 

1260 DATA 51.50000, -0.11667»London 

1270 DATA 33.00000,-118.00000,LosAngeles 

1280 DATA 40.50000, -3.66667,Madrid 

1290 DATA 25.00000, -80.16667,Miami 

1300 DATA -35.50000, -56.00000»Montevideo 

1310 DATA 56.00000, 38.00000»Moskau 

1320 DATA 28.00000, 86.88333»MountEvere 


12.50000 »Kopenhagen 
74.00000,Lahore 


1240 DATA 
1250 DATA 


St 

1330 DATA 
1340 DATA 
1350 DATA 
1360 DATA 
1370 DATA 
1380 DATA 
1390 DATA 
1400 DATA 


40.75000, 14.50000,Neapel 

41.00000, -74.00000,NewYork 
90.00000, 0.00000,Nordpol 

38.16667, 13.25000,Palermo 

48.83333, 2.66667,Paris 

40.00000, 116.00000,Peking 

50.16667, 14.50000,Prag 

30.00000, 67.00000,Quetta 


1410 DATA -23.00000, -43.00000,RiodeJanei 
ro 

1420 DATA 41.83333, 12.50000,Rom 

1430 DATA -44.00000, -70.50000,Santiagode 

Chile 

1440 DATA 31.50000, 35.50000,Sodom 

1450 DATA 51.16667, -1.66667,Stonehenge 

1460 DATA -90.00000, 0.00000,Suedpol 

1470 DATA 36.00000, -6.00000,Tanger 

1480 DATA 36.00000, 51.50000»Teheran 

1490 DATA 32.00000, 34.66667,TelAviv 


1470 DATA 36.0( 

1480 DATA 36.0( 

1490 DATA 32.0( 

1500 DATA 41.7( 

1510 DATA 36.0( 

1520 DATA 45.7! 

1530 DATA -1.50000, 

e 

1540 DATA 52.25000, 

1550 DATA 41.00000, 

1560 DATA 44.Oi 

k 

Listing: DIGIGL02.BAS 


31.50000, 35.50000,Sodom 

51.16667, -1.66667»Stonehenge 

90.00000, 0.00000,Suedpol 

36.00000, -6.00000,Tanger 

36.00000, 51.50000,Teheran 

32.00000, 34.66667,TelAviv 

41.76667, -50.23333,Titanic 
36.00000, 140.00000,Tokyo 
45.75000, 12.25000,Venedig 

-1.50000, 33.00000,Viktonase 


21.00000 »Warschau 
28 . 00000 ,Wien 


44.00000, 132.00000,Wladiwosto 


[1127] 

[931] 

[403] 

[1599] 

[1127] 

[956] 

[1568] 

[1974] 

[1356] 

[996] 

[935] 

[3192] 

[350] 

[1352] 

[1228] 

[660] 

[1789] 

[2075] 

[1255] 

[667] 

[1955] 

[2627] 

[1293] 

[ 1120 ] 

[1602] 

[1537] 

[1625] 

[1279] 

[1161] 

[825] 

[1148] 

[1922] 

[1490] 

[1523] 

[1271] 

[1412] 

[1772] 

[2283] 

[889] 

[1791] 

[1069] 

[1254] 

[1167] 

[1401] 

[1042] 

[1516] 

[865] 

[1159] 

[2099] 

[909] 

[1566] 

[1496] 

[280] 

[877] 

[1316] 

[2113] 

[1223] 

[1342] 

[1692] 
[1596] 
[876] 
[1270] 
[1912] 
[1478] 
[1797] 
[1517] 
[1769] 
> [2016] 

[2170] 
[1476] 
> [2335] 
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Programm—i 



Über alle Maße 

Umrechnungsprogramm 
für alle Maßeinheiten 

Der Begriff “Kilometer pro Stunde“ dürfte allgemein bekannt sein. Auch 
mit Celsius-Graden sollte man noch klarkommen. Wie sieht es aber aus mit 
“Meilen pro Stunde“ oder mit “Fahrenheit“? Das Programm UMRECH¬ 
NUNG hilft Ihnen da weiter. 


Solange man buchstäblich nach deut¬ 
schen Maßstäben mißt, hat man mit 
den hier gebräuchlichen Maßeinheiten 
kaum Schwierigkeiten. Befaßt man 
sich aber mit dem englischen Sprach- 
raum, wo aus Kilometern Meilen wer¬ 
den. wo “Fuß“ (Foot) und “Zoll“ 
(Inch) Verwendung finden, kommen 
auch weitgereiste Leute ins Trudeln. 

Das wird vor allem dann deutlich, 
wenn beispielsweise der Nachbar 
strahlenden Auges vom letzten Ameri¬ 
ka-Urlaub erzählt - und seine Ehefrau 
dann ironisch über die vielen Strafzet¬ 
tel berichtet, die der Göttergatte wegen 
zu schnellen Fahrens kassiert hat. 
Denn in den USA rechnet man in Mei¬ 
len, beispielsweise ist auf den High¬ 


ways, den amerikanischen Autobah¬ 
nen, Tempo 55 vorgeschrieben. 

Bei der US-Polizei in den klassischen 
Urlaubergegenden sind daher die Deut¬ 
schen auch berühmt-berüchtigt — sie 
fahren zu schnell, weil sie nicht mit der 
Umrechnung klarkommen. 

55 Meilen/Stunde sind genau 88,5141 
km/h. Und manch deutscher Autofah¬ 
rer auf Amerikas Straßen fährt auch 
Tempo 88 - aber in Meilen, weil viele 
sich nicht vorstellen können (gewöhnt 
an hiesige Geschwindigkeiten), daß die 
55 Meilen richtig sind. 

Würde man auf deutschen Autobahnen 
mit 88 km/h dahinzockeln - was nicht 
verkehrt sein muß -, ist der berühmte 
Finger an der Stirn häufig noch die 


Liste der Variablen 

Alphanumerische Variablen 

a$ 

= 

Namen für Hauptmenü-Punkte 

bS 

= 

"Umrechnung“ 

by$ 

= 

String für Bytes 

c$ 

= 

"stabeilen'' 

d$ 

= 

diverse Strings für Überschriften 

nbS 

= 

String für Bezeichnung (nach) 

nd$ 

SS 

String für Dimension (nach) 

vb$ 

= 

String für Bezeichnung (von) 

vd$ 

= 

String für Dimension (von) 

Numerische Variablen 

a 

= 

Zusätzlicher Zähler für Schleifen 

an 

= 

Anzahl der zu berechnenden 

Werte 

beg 

= 

Anfangswert der Umrechnung 

bez 

= 

Bezugswert der Umrechnung 

dfl 

= 

Flag für Dichtenumrechnung 

efl 

= 

Flag für Einzelumrechnung 

erg 

= 

Ergebniswert 

i 

2= 

Zähler für Schleifen 

ii 

= 

Anfangswert einiger Schleifen 

mp 

= 

Zahlenwert für Menüpunkt 

sp 

= 

Position des ersten Menüblocks 

spl 

= 

Position des zweiten Menüblocks 

t 

= 

Zähler für Zeitschleife 

tfl 

— 

Flag für temperaturabhängige 
Dichte 

X 


Position (Spalte) für Invertie¬ 
rungsbalken 

y 

— 

Position (Zeile) für Invertierungs¬ 
balken 

z 

= 

Anzahl der Menüpunkte 
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Programm 


Info-Material bekommen haben, kön¬ 
nen Sie darin angegebene Werte (etwa 
die Zimmergröße Ihres Hotels, ange¬ 
geben in Square Yard, oder den Luft¬ 
druck in den Anden) mit UMRECH¬ 
NUNG bequem auf gewohnte Werte 

umstellen. . ... 

(H. Lutzner/tk) 


den. Jede Seite erhält beim Ausdruck 
einen eigenen Seitenkopf, als Über¬ 
schrift den Umrechnungsbereich und 
die Maßeinheit. 

Wenn Sie also beispielsweise Ihre Ur¬ 
laubsreise planen und von einem im 
Urlaubsland ansässigen Veranstalter 


harmloseste Geste, die einem von an 
deren Autofahrern zuteil wird. 


Die unterschiedlichen Maßein 


heilen - mit UMRECHNUNG 


kein Problem 


Der Autor des Programms UMRECH¬ 
NUNG ist leitender Ingenieur auf ei¬ 
nem Handelsschiff und kommt viel in 
der Welt herum. Sein Programm dient 
zur Umrechnung deutscher in engli¬ 
sche Maßeinheiten und umgekehrt. Es 
basiert auf Daten und Umrechnungs¬ 
faktoren aus diversen aktuellen techni¬ 
schen Handbüchern, auf die er beruf¬ 
lich ständig zurückgreifen muß. 
UMRECHNUNG ist in BASIC auf ei¬ 
nem 6128 geschrieben, der im übrigen 
ständiger Begleiter auf hoher See ist 
und auch bei der alltäglichen Arbeit auf 
dem Schiff Verwendung findet, bei¬ 
spielsweise zur Berechnung von 
Sch i ffsmasch i nendaten. 

Das Programm läuft auf den CPC- 
Rechnern 664 und 6128. 

Nach dem Start mit RUN“UMRECH 
.BAS erscheint ein Hauptmenü auf 
dem Monitor, aus dem man zunächst 
den gewünschten Umrechnungsbe¬ 
reich wählen und mit < RETURN > 
bestätigen kann. 

Danach gelangt man in ein weiteres 
Menü, aus dem man dann die gesuchte 
Maßeinheit, beispielsweise Kilometer 
— nautische Meile, anwählt. 

In bezug auf die unterschiedlichsten 
Maßeinheiten läßt das Programm kei¬ 
nerlei Wünsche offen - auch die aus¬ 
gefallenste Berechnung, etwa Zentime¬ 
ter in Yard, Foot, Inch oder umgekehrt 
wird ohne Probleme durchgeführt. 
Beispielsweise werden bei der Tempe¬ 
ratur-Umrechnung auch Einheiten wie 
etwa Reaumur oder Kelvin berücksich¬ 
tigt. 

Hat man eine Umrechnungsart ange¬ 
wählt und mit < RETURN > bestätigt, 
kommt man in ein drittes Menü, in wel¬ 
chem man einmal Umrechnungstabel¬ 
len anfordern oder aber eine Einzelum¬ 
rechnung mit mehreren Werten durch¬ 
führen lassen kann. 


4 - Srfldr-tartdnir 


äecisa-ttaredinmg 


■ßsrSiHjarecteiyn; 


Bild 1: Wählen Sie 
einen Umrechnungs¬ 
bereich - da s 
Hauptmenü von 
UMRECHNUNG 


) Xitatctcr 
' Kilometer 

> Mieter 

> lilometer 

> Kilometer 

> Kilometer 

> Heter 
' Meter 

> Meter 

) Zentimeter 
' ZeBiii*eter 

> lentisrter 
' Mühwter 

> Millimeter 

-> stetste m:l* 
■) stetste s’ie 


Kilometer - 
Kilometer -- 
Xi kreier -- 
Küaneter -- 
Kilometer -- 
Kilometer - 

Meter - 

Meter . 

Meter. 

Zentimeter - 
Zentimeter - 
Z-rüt jneter - 
Millimeter - 
Millimeter -• 
stete» niie 
stetste nzle 


Bild 2: Hier werden die 
utnzurechnenden 
Maßeinheiten aus¬ 
gesucht 


Jede Berechnung läßt sich auch 


ausdrucken 


Die Drucker-Routine ist für 12-Ineh- 
Papier geschrieben. Man kann sich in 
Form einer Tabelle eine vorher festge¬ 
legte Anzahl von Werten von einem 
Epson-kompatiblen Drucker ausdruk- 
ken lassen. Allerdings können maximal 
520 Werte auf einmal ausgegeben wer- 


Bild 3: Das Ergebnis 
überzeugt voll und ganz 

















Programm— 


für 664-6128 


******?* ******* [1890] 

20 REM * umi 


30 REM * 


UMRECHNUNG 


40 REM * Programm zur Umrechnung von Einh f19121 
eiten * 

50 REM^ * geschrieben von H. Luetzler [1786] 

60 REM^ * an Bord M/S "CALA ATLANTICA" [1987] 

70 REM^ * 1990 [528] 

80 REM^ * [403] 

90 REM ********************************** riooftl 
******* L J 


100 REM 

110 REM MC-Routine fuer Invertierungsbalke 
n aus [Schneider PC 9/87] 

120 REM 

130 MEMORY &A1FF 

140 RESTORE 190 

150 FOR i=&A200 TO &A223 

160 READ by$ 

170 POKE i,VAL("&"+by$) 

180 NEXT 

190 DATA 26,03,2e,06,06,23,e5, cd 
200 DATA 78,bb,22,21,a2,el,cd,75 
210 DATA bb,cd,8a,bb,3e,09,cd,5a 
220 DATA bb,10,f6,2a,21,a2,c3,75 
230 DATA bb,0,0,c9 
240 REM 

250 REM Variablen 
260 REM 

270 DIM bez(521),d(521),erg(521),f(38),a$( 
12),vb$(38),nb$(38),vd$(38),nd$(38):b$="Um 
rechnung":c$="stabellen" 

280 REM 

290 REM Hauptmenue 
300 REM 

310 MODE 2:INK 0,13:INK 1,0:BORDER 10 
320 PRINT CHR$(150)STRINGS(78,154)CHR$(156 

330 LOCATE 2,3:PRINT STRINGS(78,154) 

340 FOR i=2 TO 24 

350 LOCATE 80,i:PRINT CHRS(149):LOCATE l,i 
:PRINT CHR$(149) 

360 NEXT 

370 LOCATE 2,23:PRINT STRINGS(78,154):LOCA 
TE 5 I,25:PRINT CHRS(147)STRINGS(78,154)CHR$ 

380 CLEAR INPUT:LOCATE 2,2:PRINT CHRS(24); 

" ";b$;c$;" V-l.5"SPC(9)CHR$(164)" 1990 

by H. Luetzler M/S CALA ATLANTICA "CHR$(24 

390 GOSUB 2680:RESTORE 840 
400 d$="*** "+b$+C$+" ***":sp=INT((82-LEN( 
d$) )/2):LOCATE sp,5:PRINT d$:LOCATE sp-1,6 
:PRINT STRINGS(LEN(d$) + 2,208 ) 

410 z=ll:sp=8:spl=49 
420 FOR i=l TO 11 STEP 2 

430 READ a$(i),a$(i+1):LOCATE sp,7+i:PRINT 
a$(i)b$ 

440 IF i=9 THEN sp=7:spl=48 

450 LOCATE spl,7+1:PRINT a$(i+l)bS 

460 NEXT 

470 GOSUB 2660 

480 an=0:a=o:df1=0:tf1=0:ef1=0:ii=0 

490 ON mp GOTO 510,530,550,570,590,610,630 

,650,710,730,780,800 

500 REM Laengenumrechnung 

510 RESTORE 880:z=37 :sd1=45:GOSUB 2580:GOT 

O 1590 

520 REM Massenumrechnung 

530 RESTORE 940:z=37:spl=48:GOSUB 2580:GOT 
O 1590 

540 REM Volumenumrechnung 

550 RESTORE 1000:z=37:spl=46:GOSUB 2580:GO 

TO 1590 

560 REM Druckumrechnung 

570 RESTORE 1070:z=37:spl=46:GOSUB 2580:GO 
TO 1590 

580 REM Flaechenumrechnung 

590 RESTORE 1130:z=37:spl=46:GOSUB 2580:GO 

TO 1590 

600 REM Geschwindigkeitsumrechnung 

610 RESTORE 1190:z=33:spl=47:GOSUB 2580:GO 

TO 1590 

620 REM Leistungsumrechnung 
Listing UMRECH.BAS 


[272] 

[3843] 

[272 ] 

[450] 

[773] 

[322] 

[744] 

[691] 

[350] 

[981] 

[1195] 

[1385] 

[858] 

[629] 

[272] 

[679] 

[272] 

[6991] 


[272] 
[1328] 
[272] 
[1881 ] 
[2083] 

[2523] 

[601] 

[3484] 

[350] 

[7517] 


[6239] 


[1143] 

[5489] 


[846] 

[1562] 

[1496] 

[1940] 

[1498] 

[350] 

[823] 

[1937] 

[2387] 

[1197] 

[2784] 

[1003] 

[3031] 

[1411] 

[1896] 

[760] 

[3032] 

[1916] 

[3828] 

[3327] 

[3216] 

[2176] 


630 RESTORE 1250:Z=37:spl=48:GOSUB 2580:GO 
TO 1590 

640 REM TemperaturUmrechnung 
650 RESTORE 1310:z=15:GOSUB 2580 
660 FOR i=l TO 8 

670 LOCATE 25,6+a:PRINT i"- "vbS(i)" ";STR 
ING$(14-LEN(vb$(i)),45)"> "nb$(i):a=a+2 
680 NEXT 

690 GOSUB 2660:z=mp:GOTO 1590 

700 REM Energieumrechnung 

710 RESTORE 1350:z=37:spl=46:GOSÜB 2580:GO 

TO 1590 

720 REM Dichtenumrechnung 

730 RESTORE 1410:z=35:df1=1:spl=43:GOSUB 2 

580:z=l2 

740 IF mp=3 OR mp=15 THEN z=10 

750 IF mp=4 OR mp=16 THEN z=ll 

760 f(4)=141.43:f(16)=141.5:GOTO 1590 

770 REM Temperaturabhaengige Dichteumrechn 

ung 

780 RESTORE 1490:READ vbS(11),nb$(11),vd$( 

11),nd$(11):tf1=1:z=9:GOTO 1590 

790 REM Generelle Umrechnung 

800 RESTORE 1530:z=37:spl=44:GOSUB 2580:GO 

TO 1590 

810 REM 

820 REM DATA's fuer Hauptmenue und Uebersc 

hriften 

830 REM 

840 DATA 1 - Laengen-,2 - Massen-,3 - Volu 
men-,4 - Druck-,5 - Flaechen-,6 - Geschw.- 
,7 - Leistungs-,8 - Temperatur-,9 - Energi 
e-,10 - Dichte-,11 - Temp./Dichte-,12 - Ge 
nerelle- 
850 REM 

860 REM Bezeichnungen fuer Laenqen 
870 REM 

880 DATA Kilometer,naut. mile,.53966541,km 
,nm,Kilometer,US sea mile,.54054054,km,US 
sm,Kilometer,geogr. Meile,.134763624,km,gm 
,Kilometer,Statute mile,.621504039,km,mi,K 
ilometer,Seemeile,.539956803,km,sm 
890 DATA Kilometer,yard,1093.61,km,yd,Mete 
r,yard, 1 .09 361,m,yd,Meter,f 00 t,3.28081 ,m,f 
t,Meter,inch,39.3701,m,in,Zentimeter,yard, 

.0109361,cm,yd,Zentimeter,foot,.0328081,cm 
,ft,Zentimeter,inch,.3937,cm,in,Millimeter 
,foot,.00328081,mm,ft 

900 DATA Millimeter,inch,.03937,mm,in,stat 
ute mile,Seemeile,.8689795,mi,sm,Statute m 
lle,yard,1760,mi,yd,yard,f 00 t,3,yd,ft,yard 
, inch, 36, yd, in, f 00 t, mch, 12, f t, in 
910 REM 

920 REM Bezeichnungen fuer Massen 
930 REM 

940 DATA Tonne,t. dead weight,.984251968,t 
,tdw,Tonne,long ton,.984206536,t,tn l,Tonn 
e,short ton,1.1023,t,tn sh,Tonne,cwt (UK), 
19.684,t,cwt,Tonne,cwt (US),22.046,t,cwt 
950 DATA Kilogramm,pound,2.2046,kg,lb,Kilo 
gramm,ounce,35.274,kg,oz,Gramm,grain,15.43 
2 ,Gramm,dram,.5644,g,dram,Gramm,ounce 

,.03527,g,oz,Gramm,Karat,5,g,K 
960 DATA long ton,short ton,1.12,tn l,tn s 
h,cwt (UK),pound, 112 ,cwt,lb,cwt (US),pound 
,100,cwt,lb,grain,dram,.03657,gr,dram,grai 
n,ounce,.00229,gr,oz,dram,ounce,. 0625 ,dram 
,oz,dram,pound,.00391,dram,lb,ounce,pound, 

.0625,oz,lb 
970 REM 

980 REM Bezeichnungen fuer Volumen 
990 REM 

1000 DATA Kubikmeter,register ton,.3531073 
4 4 , m A 3,RT,Kubikmeter,cubic yard, 1.3 0 7 9 5,m A 
3,yd A 3,Kubikmeter,cubic f 00 t,35.3147,m A 3,f 
t A 3,Kubikmeter,barrel (UK),6.11022852,m A 3, 
bbl,Kubikmeter,barrel (US),6.289703754,m A 3 
,bbl 

1010 DATA Kubikmeter,gallon (UK),219.966 ,m 
A 3,gal,Kubikmeter,gallon (US),264.172,m A 3, 
gal,Liter = dm A 3,cubic foot,.03531,1,ft A 3, 
Liter,cubic inch,61.0236,1,in A 3,Liter,barr 
el (UK),6.11022852E-3,1,bbl,Liter,bareil ( 
US),6.289703754E-3,1,bbl 

1020 DATA Liter,gallon (UK),.219966,1,gal, I 
Liter,gallon (US),.264172,1,gal,gallon (UK 
),gallon (US),1.20095,gal (UK),gal(US),gal 
Ion (UK),cubic foot,.16054,gal (UK),ft A 3,g 
allon (UK),cubic inch,277.42,gal (UK),in A 3 
1030 DATA gallon (US),cubic foot,.13368,ga I 
1 (US),ft A 3,gallon (US),cubic inch,231,gal 
(US),in A 3,cubic yard,cubic inch,27,yd A 3,i 
n A 3 

1040 REM r 

1050 REM Bezeichnungen fuer Druecke 
1060 REM 


[2371] 

[1506] 

[2129] 

[462] 

[5211] 

[350] 

[1602] 

[1342] 

[3073] 

[1654] 

[4688] 

[994] 

[853] 

[1521] 

[2908] 

[4422] 

[1838] 

[1774] 

[272 ] 
[1303] 

[272] 

[9121] 


[272] 

[2285] 

[272] 

[14813] 


[13499] 


[10745] 


[272] 

[2043] 

[272] 

[9801] 


[10001 ] 


[11288] 


[ 272 ] 
[2246] 
[272] 
[13101] 


[14218] 


[10988] 


[5694] 


Listing UMRECH.BAS 


[272] 

[2563] 

[272] 
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1070 DATA Mega-Pascal,Bar,10,MPa,bar,Mega- 
Pascal ,techn.Atm.,10.19716,MPa,at,Mega-Pas 
ca1,phys.Atm.,9.86923,MPa,a tm,Mega-Pa sca1, 
pound/sq.in,145.038,MPa,lbf/in A 2,Pascal,mm 
Hg,.0075006,Pa,mmHg,Pascal,mmWs,.1019716, 
Pa,mmWs 

1080 DATA Pascal,pound/sq.ft,.020885416,Pa 
,lbf/ft A 2,Bar,Kilopond/cm A 2,l.019716,bar,k 
p/cm A 2,Bar,techn.Atm.,1.019716,bar,at,Bar, 
phys.Atm.,.986923,bar,atm,Bar,mmHg,750.062 
,bar,mmHg,Bar,inch mercury,29.53,bar,inHg, 
Bar,foot H20,33.48,bar,ft.H20 
1090 DATA Bar,lbf/sq.ft,2088.6,bar,lbf/ft A 
2,Bar,pound/sq.in,14.5,bar,lbf/in A 2,mWs,fo 
ot mercury,3.281,mWs,ftHg,foot H20,inch me 
rcury,.8827,ft.H20,inHg,mmWs,mmHg,.07355,m 
mWs,mmHg,techn.Atm.,phys.Atm.,.968,at,atm 
1100 REM 

1110 REM Bezeichnungen fuer Flaechen 
1120 REM 

1130 DATA km A 2,Hektar,100,km A 2,ha,km A 2,Ar, 
10000,km A 2,a,km A 2,square mile,.38612,km A 2, 
mile A 2,km A 2,acre,247.114,km A 2,acre,Hektar, 
Ar f 100,ha,a,Hektar,square mile,.0038612,ha 
,mile A 2,Hektar,acre,2.47114,ha,acre,Ar,acr 
e,.0247114,a,acre,Ar,m A 2,100,a,m A 2 
1140 DATA m A 2,square yard,1.19603,m A 2,yd A 2 
,m A 2,square foot,10.7637,m A 2,ft A 2,m A 2,squa 
re inch,1550.05,m A 2,in A 2,m A 2,cm A 2,loooo,m A 
2,cm A 2,cm A 2,square foot,.00107637,cm A 2,ft A 
2,cm A 2,square inch,.155005,cm A 2,in A 2 
1150 DATA mm A 2,square inch,.00155005,mm A 2, 
in A 2,square mile,acre,640,mile A 2,acre,squa 
re yard,sguare foot,9,yd A 2,ft A 2,square foo 
t,square mch,l44,ft A 2,in A 2 
1160 REM 

1170 REM Bezeichnungen fuer Geschwindigkei 
t 

1180 REM 

1190 DATA km/h,Seemeile/h,.5399568,km/h,kn 
,km/h,Meter/sek,.277777,km/h,m/s,km/h,mile 
s/hour,.62137,km/h,mph,km/h,foot/min,54.68 
1,km/h,ft/min,km/h,foot/sec,.9113,km/h,ft/ 
sec,Meter/sek,Seemeile/h,1.9438444,m/s,kn, 
Meter/sek,miles/hour,2.23714,m/s,mph 
1200 DATA Meter/sek,foot/min,196.86,m/s,ft 
/min,Meter/sek,foot/sec,3.281, m/s,ft/sec,m 
iles/hour,Seemeile/h,.868936 { mph ( kn,miles/ 
hour , foot/min,88.02,mph,ft/min,miles/hour, 
foot/sec,1.467,mph,ft/sec 
1210 DATA miles/hour,cm/sek.,44.706,mph,cm 
/s,Seemeile/h,foot/min,101.28,kn,ft/min,Se 
emeile/h,foot/sec,1.688,kn,ft/sec,Etmal=sm 
/d,Meter/sek,2.14 4 E-2,sm/d,m/s,Umdr./min,U 
mdr./sek.,.016666666,1/min,1/sek 
1220 REM 

1230 REM Bezeichnungen fuer Leistung 
1240 REM 

1250 DATA PS,kW,.735499,PS,kW,PS,kpm/s,75, 
PS, kpm/s, PS, kcal/h, 6 3 2, PS, kcal/h, PS, kcal/s 
,.17567,PS,kcal/s,PS,horsepower,.98632,PS, 
hp,PS,BTU/sec.,.69712,PS,BTU/s,kW,kpm/s,10 
1.97, kW, kpm/s,kW,kcal/h, 859.968,kW,kcal/h, 
kW,kcal/s,.23888,kW,kcal/s 
1260 DATA kW,horsepower,1.34102,kW,hp,kW,B 
TU/sec.,.947817,kW,BTU/s,kpm/s,kcal/h,8.43 
,kpm/s,kcal/h,kpm/s,kcal/s,2.342E-3,kpm/s, 
kca1/s,kpm/s,horsepower,.01315,kpm/s,hp,kp 
m/s,BTU/sec.,9.294889E-3,kpm/s,BTU/s,kcal/ 
h,kcal/s,3600,kcal/h,kcal/s 
1270 DATA kcal/h,horsepower,1.5586E-3,kcal 
/h,hp,kcal/h,BTU/sec.,1.1022E-3,kcal/h,BTU 
/s,horsepower,BTU/sec.,.70678,hp,BTU/s 
1280 REM 

1290 REM Bezeichnungen fuer Temperaturen 
1300 REM 

1310 DATA Celsius,Fahrenheit,1,'C,'F,Celsi 
us,Reaumur,1,'C,'R,Celsius,Kelvin,1,'C,'K, 
Fahrenheit,Reaumur,1,'F,'R 
1320 REM 

1330 REM Bezeichnungen fuer Energie 
1340 REM 

1350 DATA Joule,kpm,.10972,J,kpm,Joule,Kil 
okalorie,.000238846,J,kcal,Joule,ft pound- 
force,.73756,J,ft.lbf,Joule,ft poundal,23. 
73,J,pdl,Joule,BTU,.000947814,J,BTU,kWh,PS 
h,l.3592,kWh,PSh,kWh,Kilokalorie,859.85,kW 
h,kcal,kWh,BTU,3412.13,kWh,BTU 
1360 DATA kWh,hph,l.34043,kWh,hph,PSh,Kilo 
kalorie,632.369,PSh,kcal,PSh,BTU,2509.6,PS 
h,BTU,PSh,hph,.9859,PSh,hph,kpm,Kilokalori 
e,2.342E-3,kpm,kcal,kpm,BTU,9.295E-3,kpm,B 
TU 


[11028] 


[16955] 


[13699] 


[272] 

[2566] 

[272] 

[14918] 


[15732] 


[8453] 


[272] 

[3569] 

[272] 

[15111] 


[11268] 


[14137] 


[272] 

[3093] 

[272] 

[14659] 


[12777] 


[6300] 


[272] 

[ 1994 ] 

[272] 

[4945] 


[272 ] 
[3037] 
[272] 
[14661] 


[12692] 


Listing UMRECH.BAS 


1370 DATA Kilokalorie,ft pound-force,3088, 
kcal,ft.lbf,Kilokalorie,hph,.0015587,kcal, 
hph,Kiloka1orie,BTU,3.9683,kcal,BTU,BTU,hp 
h,4.0410408E-4,BTU,hph,BTU,ft pound-force, 
778.17,BTU,ft.lbf 
1380 REM 

1390 REM Bezeichnungen fuer Dichten 
1400 REM 

1410 DATA Dichte 15'C,spez.Grav 60'F,1.000 
53,kg/dm A 3,sp.Gr.,Dichte 15'C,A.P.I. 60'F, 
141.43,kg/dm A 3,API,Dichte 15'C,lb/in A 3 60' 
F,.03613,kg/dm A 3,lb/in A 3,Dichte 15'C,lb/ft 
A 3 60'F,62.43,kg/dm A 3,lb/ft A 3 
1420 DATA Dichte 15'C,1.t/yd A 3 60'F,.7525, 
kg/dm A 3,1.t/yd A 3,Dichte 15'C,lb/gal (UK),1 

O. 02,kg/dm A 3,lb/gal,Dichte 15'C,lb/gal (US 
A),8.3351,kg/dm A 3,lb/gal,spez.Grav 60'F,A. 

P. I. 60'F,141.5,sp.Gr.,API 

1430 DATA lb/in A 3 60'F,lb/ft A 3 60'F,1728,1 
b/in A 3,lb/ft A 3,lb/in A 3 60'F,1.t/yd A 3 (UK), 
20.83,lb/in A 3,1.t/yd A 3,lb/in A 3 60'F,lb/gal 
(UK),277.4,lb/in A 3,lb/gal,lb/in A 3 60'F,lb 
/gal (USA),231,lb/in A 3,lb/gal,lb/ft A 3 60'F 
,1.t/yd A 3 (UK),.01205,lb/ft A 3,1.t/yd A 3 
1440 DATA lb/ft A 3 60'F,lb/gal (UK),.1605,1 
b/ft A 3,lb/gal,lb/ft A 3 60'F,lb/gal (USA),.l 
337,lb/ft A 3,lb/gal,l.t/yd A 3 60'F,lb/gal (U 
K),13.32,1.t/yd A 3,lb/gal,1.t/yd A 3 60'F,lb/ 
gal (USA),11.09,l.t/yd A 3,lb/gal,lb/gal (UK 
),lb/gal (USA),1.201,lb/gal,lb/gal 
1450 DATA lb/in A 3,l.t/yd A 3,lb/in A 3,lb/gal, 
lb/in A 3,lb/gal,lb/ft A 3,1.t/yd A 3,lb/ft A 3,lb 
/gal,lb/ft A 3,lb/gal,1.t/yd A 3,lb/gal,1.t/yd 
A 3,lb/gal,lb/gal,lb/gal 
1460 REM 

1470 REM Bezeichnung fuer Temperaturabhaen 
gige Dichte 
1480 REM 

1490 DATA Dichte 15'C,Dichte t'C,Temp,kg/d 
m A 3 

1500 REM 

1510 REM Bezeichnungen fuer gen. Umrechnun 

g 

1520 REM 

1530 DATA Kilometer,Meter,1000,km,m,Meter, 
Dezimeter,10,m,dm,Dezimeter,Zentimeter,10, 
dm,cm,Zentimeter,Mi11imeter,10,cm,mm,Tonne 
,Kilogramm,1000,t,kg,Kilogramm,Gramm,1000, 
kg,g,Gramm,Milligramm,1000,g,mg,Kubikmeter 
,Kubikdezim.,1000,m A 3,dm A 3 
1540 DATA Kubikdezim.,Kubikzentim.,1000,dm 
A 3,cm A 3,Kubikzentim.,Kubikmillim.,1000,cm A 
3,mm A 3,Kubikmeter,Hektoliter,10,m A 3,hl,Hek 
toliter,Liter,100,hl,1,Liter,Deziliter,10, 

1, dl,Deziliter,Zentiliter,10,dl,cl,Quadrat 
kilom,Quadratmeter,1000000,km A 2,m A 2 

1550 DATA Quadratmeter,Quadratdezim.,100,m 
A 2, dm A 2,Quadratmeter,Quadratzentim,10000,m 
A 2,cm A 2,Quadratdezim,Quadratzentim,100, dm A 

2, cm A 2,Quadratzentim,Quadratmillim,100, cm A 
2,mm A 2 

1560 REM 

1570 REM Programmteil zur Umrechnung 
1580 REM 

1590 GOSUB 2700:GOSUB 2680:LOCATE sp,2:PRI 
NT d$ 

1600 LOCATE 30,10:PRINT"1 - "b$;c$:LOCATE 
30,12:PRINT"2 - Einzelumrechnung" 

1610 LOCATE 2,24:PRINT CHR$(24);SPC(29)"Bi 
tte waehlen Sie : "CHR$(24)CHR$(7); 

1620 ON INSTR("?12",INKEY$)+l GOTO 1620,16 

20,1750,1660 

1630 REM 

1640 REM Menue fuer Einzelumrechnung 
1650 REM 

1660 GOSUB 2680:LOCATE 3,5:PRINT"Wieviele 
"CHR$(24) " "vb$(mp)" "CHRS(24)" Werte soll 
en umgerechnet werden? INPUT"",an 
1670 FOR i=0 TO an-1 

1680 IF tfl THEN LOCATE 3,i+7:PRINT USING" 
###";i+l;:PRINT". Dichte: ";:INPUT"",d(i): 
LOCATE 30,i+7:PRINT"Temperatur: ";:INPUT"" 

,bez(i):GOTO 1700 

1690 LOCATE 3,i+7:PRINT USING"###";i+l;:PR 
INT".";:INPUT" Wert: ”,bez(i) 

1700 NEXT 

1710 ef1=1:G0T0 1830 
1720 REM 

1730 REM Menue fuer Tabelle 
1740 REM 

1750 IF tfl THEN GOSUB 2680:LOCATE 26,10:P 
RINT"Welche Dichte bei 15'C: ";:INPUT"",d 
1760 d$="Ab welchem "+CHR$(24)+" ["+vd$(mp 
) + "] "+CHR$(24) + "-Wert soll umgerechnet we 
rden: ":sp=INT((80-LEN(d$))/2):LOCATE sp,l 
2:PRINT d$;:INPUT"",beg 

Listing UMRECH.BAS_ 


[9627 ] 


[ 272] 
[2109] 
[272] 
[8698] 


[12186] 


[12324] 


[13416] 


[9623] 


[272] 

[ 2743] 

[272] 

[1684] 


[272] 

[3690] 


272 
[16497] 


[16931 ] 


[12667] 


[272] 

[2792] 

[272] 

[3730] 

[5016] 

[4695] 

[3367] 


[272] 

[1460] 

[272] 

[9638] 


[552] 

[10326] 


[6410] 


[350] 

[446] 

[272] 

[1140] 

[272] 

[5585] 


[10076] 
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Programm 


1770 LOCATE 19,14:PRINT"Wieviele Werte sol 
len umgerechnet werden? INPUT"",an 
1780 IF an>520 THEN LOCATE 19,14:PRINT SPC 
(ll);"Das sind zuviel !!!!";SPC(20):FOR t= 
1 TO 1000:NEXT:GOTO 1770 

1790 LOCATE 19,14:PRINT SPC(50):LOCATE 2,1 
2:PRINT SPC(24)"Ich rechne, bitte warten.. 
..."SPC(20) 

1800 REM 

1810 REM Berechnungen 
1820 REM 

1830 FOR i=0 TO an-1 

1840 IF efl THEN 1890' wenn Einzelumrechng 
. dann 1890 

1850 d(i)=d:bez(i)=i+beg' alle anderen Umr 
echnungen 

1860 IF z=10 THEN bez(i)=beg+i*0.00046' Di 
chte —> API 

1870 IF z=ll THEN bez(i)=beg+i*0.1' API -- 
> Dichte 

1880 IF Z=12 THEN bez(i)=beg+i*0.0005' Die 
hte —> Dichte 

1890 ON Z GOTO 1910,1920,1930,1940,1950,19 
60,1970,1980,1990,2000,2010 
1900 erg(i)=bez(i)*f(mp):GOTO 2020' alle a 
nderen Umrechnungen 

1910 erg(i)=bez(i)*9/5+32:GOTO 2020' Celsi 
us —> Fahrenheit 

1920 erg(i)=(bez(i)-32)*5/9:GOTO 2020' Fah 
renheit —> Celsius 

1930 erg(i)=bez(i)*4/5:GOTO 2020' Celsius 
—> Reaumur 

1940 erg(i)=bez(i)*5/4:GOTO 2020' Reaumur 
—> Celsius 

1950 erg(i)=bez(i)+273:GOTO 2020' Celsius 
—> Kelvin 

1960 erg(i)=bez(i)-273:GOTO 2020' Kelvin - 
-> Celsius 

1970 erg(i)=(bez(i)-32)*4/9:GOTO 2020' Fah 
renheit —> Reaumur 

1980 erg(i)=bez(i)*9/4+32:GOTO 2020' Reaum 
ur —> Fahrenheit 

1990 erg(i)=d(i)/(l+0.0007*(bez(i)-15)):GO 

TO 2020' Dichte 15'C —> Dichte t'C 

2000 erg(i)=f(mp)/bez(i)-131.5:GOTO 2020' 

Dichte oder Spez.Grav. —> API 

2010 erg(i)=f(mp)/(bez(i)+131.5)' API —> 

Dichte oder Spez.Grav. 

2020 NEXT 

2030 REM Ausgabe der Werte auf Bildschirm 
2040 REM 

2050 IF tfl THEN vb$(11)=vb$(11)+"="+STR$( 
d):GOSUB 2700:LOCATE sp,2:PRINT d$ 

2060 GOSUB 2680 

2070 sp=LEN(vd$(mp))/2:spl=LEN(nd$(mp))/2 
2080 LOCATE 12-sp,4:PRINT"["vd$(mp)"]":LOC 
ATE 32-spl,4:PRINT"["nd$(mp)"]":LOCATE 52- 
sp, 4 : PRINT" [ "vd$ (mp) " ] " : LOCATE 72-spl, 4 : PR 
INT"["nd$(mp)"]" 

2090 LOCATE 2,5:PRINT STRINGS(78,154) 

2100 LOCATE 40,3:PRINT CHR$(158):FOR i=4 T 

O 22:LOCATE 40,i:PRINT CHRS(149):NEXT:LOCA 

TE 40,23:PRINT CHR$(155):a=6 

2110 FOR i=ii TO an-1 

2120 IF ZO10 THEN 2150 

2130 LOCATE 11,a:PRINT USING"#.#### 

###.#";bez(i);erg(i):IF i+17<an THE 
N LOCATE 51,a:PRINT USING"#.#### 

###.#";bez(i+l7);erg(i+17) 

2140 GOTO 2220 

2150 IF tfl=0 AND zoll THEN 2180 
2160 LOCATE 9,a:PRINT USING"####.# 

#•####";bez(i);erg(i):IF i+l7<an T 
HEN LOCATE 49,a:PRINT USING"####.# 

#.####";bez(i+l7);erg(i+17) 

2170 GOTO 2220 

2180 IF eflol AND Z<>12 THEN 2210 

2190 LOCATE 3,a:PRINT USING"##,###,###.### 

# ##,###,###.####";bez(i) ;erg(i):IF i+l 

7<an THEN LOCATE 43,a:PRINT USING"##,###,# 
##■#### ##,###, ###.####";bez(i+17);erg( 

2200 GOTO 2220 

2210 LOCATE 3,a:PRINT USING"##,###,### 

##,###,###.####";bez(i);erg(i):IF i+l 
7<an THEN LOCATE 43,a:PRINT USING"##,###,# 
## ##,###,###.####";bez(i+17);erg( 

1+17) 

2220 a=a+l 

2230 IF VPOS(#0)=23 THEN ii=i+18:a=6:GOTO 
2250 

2240 NEXT 

2250 LOCATE 17,24:PRINT CHR$(24)"Ausdrucke 
n <1> Weiter <2> Beenden <3>"CHR 

$(24); 

Listing UMRECH.BAS 


[7967] 

[8545] 

[7705] 

[272] 

[960] 

[272] 

[552] 

[2123] 

[2627] 

[3573] 

[1914] 

[1560] 

[3750] 

[5082] 

[3600] 

[3539] 

[2223] 

[2161] 

[3642] 

[2866] 

[3383] 

[3783] 

[4297] 

[4762] 

[3571] 

[350] 

[1590] 

[272] 

[4845] 

[899] 

[ 2000 ] 

[6343] 


[1770] 

[6908] 


[1199] 

[664] 

[8223] 


[367] 

[ 1347] 
[8614] 


[367] 

[1807] 

[7680] 


[367] 

[9372] 


[725] 

[2018] 

[350] 

[4566] 


2260 REM [272] 

2270 REM Cursorsteuerung durch Funktionsta [2098] 

sten 

2280 REM r 272 1 

2290 x=3:y=6:CALL &A200 [2211] 


2300 IF INKEY(8)=0 AND X>3 THEN X=x-40:CAL 
L &A200:POKE &A201,x:CALL &A200 
2310 IF INKEY(1)=0 AND x<43 THEN x=x+40:CA 
LL &A200:POKE &A201,x:CALL &A200 
2320 IF INKEY(0)=0 AND y>6 THEN y=y-l:CALL 
&A200:POKE &A203,y:CALL &A200 
2330 IF INKEY(2) =0 AND y<22 THEN y=y+l:CAL 
L &A200:POKE &A203,y:CALL &A200 
2340 IF INKEY(64)=0 THEN CALL &A200:POKE & 
A201,3:POKE &A203,6:ii=0:GOTO 2410 
2350 IF INKEY(65)=0 THEN CALL &A200:POKE & 
A201,3:POKE &A203,6:GOSUB 2710:GOTO 2110 
2360 IF INKEY(57)=0 THEN CALL &A200:POKE & 
A201,3:POKE SA203,6:GOTO 380 
2370 GOTO 2300 
2380 REM 

2390 REM Druck-Routine (fuer Papier 240 * 
305 mm entspr. 12" geschrieben) 

2400 REM 

2410 d$=" Umrechnung == "+vb$(mp)+" in " 
+nb$(mp)+" " 

2420 PRINT#8,TAB(40-(LEN(d$)/2)):PRINT#8,C 
HRS(27)+"-l"+d$ 

2430 PRINT#8,CHR$(2 7) + "-0":PRINT#8,TAB(11- 
sp)"["VdS(mp)"]";TAB(30-spl);"["nd$(mp)"]" 
;TAB(53-sp)"["vdS(mp)"]";TAB(72-spl)"["nd$ 

(mp)"]";STRINGS(80,45) 

2440 FOR i=ii TO an-l 
2450 IF ZO10 THEN 2480 

2460 IF i+65<an THEN PRINT#8,TAB(9)USING"# 
•#### ###.# # 
•#### ###.#";bez(i);erg(i);be 

z(i+65);erg(i+65)ELSE PRINT#8,TAB(9)USING" 
#•#### ###.#";bez(i);erg(i) 

2470 GOTO 2520 

2480 IF tfl=0 AND Z<>11 THEN 2510 
2490 IF i+65<an THEN PRINT#8,TAB(8)USING"# 
###•# #.#### # 

###•# #.####";bez(i);erg(i); 

bez(i+65);erg(i+65)ELSE PRINT#8,TAB(8)USIN 
G " # # # #.# # . ####" ;bez(i);erg( 

2500 GOTO 2520 

2510 IF i+65<an THEN PRINT#8,USING"##,### , 
###.### ##,###,###.### ## ### 
#*#•### ##,###,###.###";bez(i);erg(i); 

bez(1+65);erg(i+65)ELSE PRINT#8,USING"##,# 
ff,###.### ##,!##,###.###";bez(i);erg( 


[3692] 

[3308] 

[2623] 

[1770] 

[3414] 

[4276] 

[3348] 

[351] 

[272] 

[6490] 

[272] 

[1351] 

[3305] 

[8497] 


[1199] 

[670] 

[8376] 


[355] 

[1671] 

[9392] 


[355] 

[10751] 


1 ) 

2520 IF(i=64 OR i=194 OR i^324 OR i=454)AN 
D i+68>an THEN 380 

2530 IF i=64 OR i=194 OR i=324 OR i=454 TH 
EN PRINT#8:ii=i+66:GOTO 2410 
2540 NEXT:GOTO 380 
2550 REM 

2560 REM Subroutine zum einiesen und ausge 
ben der Bezeichnungs-DATA'S 
2570 REM 

2580 sp=INT((72-LEN(a$(mp)))/2):LOCATE 2,2 

:PRINT CHRS(24)SPC(78):LOCATE sp,2:PRINT a 

$(mp)b$;CHR$(24):sp=3 

2590 FOR i=l TO Z STEP 2 

2600 READ vb$(i),nb$(i),f(i),vd$(i),nd$(i) 

:nb$(i+l)=vb$(i):vb$(i+l)=nb$(i):f(i+i)=i/ 

f(l):vd$(i+l)=nd$(i):nd$(i+i)=vd$(i) 

2610 IF mp=8 AND i<>7 THEN 2650 ELSE IF mp 
=8 THEN RETURN 

2620 LOCATE sp,4+a:PRINT i"- "vb$(i)" ";ST 
RINGS(14-LEN(vb$(i)),45)"> "nb$(i) 

2630 IF i=9 THEN spl=spl-l:sp=2 
2640 LOCATE spl,4+a:PRINT i+l"- "vb$(i+l)" 
";STRINGS(14-LEN(vb$(i+l)),45)"> "nb$(i+l 
) :a=a+l 
2650 NEXT 

2660 LOCATE 2,24:PRINT CHR$(24);SPC(29)"Bi 
tte waehlen Sie : "CHR$(8)CHR$(8)CHR$(24 

)CHRS(7);:INPUT"",mp ' 

2670 IF mp<l OR mp>z+l THEN 2660 
2680 ORIGIN 0,0,11,629,356,42:CLG 0:LOCATE 
2,24:PRINT CHR$(24);SPC(78);CHR$(24) ; 

2690 RETURN 

2700 LOCATE 2,2:PRINT CHR$(24);SPC(78);CHR 
$(24):d$=CHR$(24)+b$+" == "+vb$(mp)+" ln 
"+nb$(mp)+CHR$(24):sp=INT((84-LEN(d$))/2) 

:RETURN 

2710 IF ii<an THEN ORIGIN 0,0,20,300,320,4 
4:CLG 0:ORIGIN 0,0,320,629,320,44:CLG 0 
2720 RETURN 


Listing UMRECH.BAS 


[3477] 

[3961] 

[1138] 

[272] 

[2841] 

[272] 

[5839] 

[940] 

[6439] 

[3388] 

[4240] 

[2134] 

[4912] 


[350] 

[5583 


[756] 

[3828] 

[555] 

[7448] 


[4392] 

[555] 
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Bild: After Image, Bavaria 


PIPELINE 

Helfen Sie J. R. und Bobby 
beim Rohre legen 

Mit Öl kann man viel “Kohle“ verdienen — Öl macht aber auch viel Arbeit. 
Unter anderem gehört zur Ölförderung das Legen einer Rohrstrecke oder 
neudeutsch Pipeline. Probieren Sie aus, wie gut Sie darin sind. 


PIPELINE wird Sie stark an ein Spiel 
erinnern, das es schon auf anderen 
Home- und Personalcomputern gibt 
(die Rede ist von Pipe Manid). Wie Te- 
tris ist auch PIPELINE ein Spiel, von 
dem man schnell “süchtig“ werden 
kann. Starten Sie es mit RUN“PIPE- 
LINE“. Im Eingangsmenü sehen Sie 
zum einen die aktuelle Bestenliste — 
die TOP FIVE. Außerdem können Sie 
wählen, ob Sie mit Joystick oder Tasta¬ 
tur und im Beginner- oder Expert-Mo¬ 
dus spielen wollen, wobei letzterer 
über zwei “Rohrspender“ verfügt. 

Der Spielablauf ist einfach: Beginnend 
bei einem Startfeld (ein Rohrstück, ge¬ 
kennzeichnet durch den Buchstaben 
“S“), muß über die Spielfläche ein zu¬ 
sammenhängendes Rohr — eine Pipe¬ 
line — gelegt werden. Dazu befinden 
sich, je nach Spielmodus, links neben 
der Spielfläche ein oder zwei “Spen¬ 
der“, aus denen Rohrstücke entnom¬ 
men und an der Cursor-Position auf 
dem Spielfeld plaziert werden können. 
Gesteuert wird das Spiel über Joystick 
oder mit ENTER- und Cursor-Tasten. 
Im Expert-Modus stehen zwei “Spen¬ 
der“ zur Verfügung, aus denen man je¬ 


weils Teile wählen kann. Um das obere 
Rohrstück aus dem unteren Spender zu 
entnehmen, wird gleichzeitig mit der 
Feuerlaste (Feuer beim Joystick oder 
< ENTER > bei der Tastatur) die 
SHIFT-Taste gedrückt. 

PIPELINE macht “süchtig“ 

Die Schwierigkeit bei PIPELINE liegt 
darin, daß einem die Zeit buchstäblich 
davonfließt, denn plötzlich beginnt, 
ausgehend vom Startfeld, Öl durch das 
bereits gelegte Rohrstück zu fließen. 
Nun sollten die Rohre natürlich so 
schnell und so geschickt gelegt wer¬ 
den, daß das Öl nicht aus dem Rohr 
herausfließt, denn angesichts des Ver¬ 
luste und der Umweltverschmutzung 
wäre das fatal. 

Bei aller Hektik, dem fließenden Öl zu¬ 
vorzukommen, helfen Ihnen Bonus- 
und Tankrohre. Ein Tankrohr, so eines 
greifbar ist, hält den Ölfluß zunächst 
auf, indem es ihn in einen Tank lenkt, 
der sich langsam, aber sicher füllt. Das 
gibt Ihnen als Pipeliner erst mal einen 
Zeitgewinn. 
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Ist der Tank aber voll, läuft das Öl aus 
einem Oberlaufrohr weiter — ausruhen 
sollten Sie sich also nicht. Erwischen 
Sie aus dem “Rohrspender“ ein Bonus¬ 
rohr, gibt’s zwar keinen Stillstand, da¬ 
für aber Bonuspunkte. Natürlich kom¬ 
men durch den Spender nicht immer 
die passenden Rohrstücke. In solchen 
Fällen drücken Sie so lange den Feu¬ 
erknopf Ihres Joysticks, bis ein passen¬ 
des Teil auf der Spielfläche erscheint 
— müssen dafür aber Punktabzüge hin¬ 
nehmen. Sollten Sie schon gesetzte 
Stücke austauschen wollen, geht das 
auf die gleiche Weise — jedoch nur, 
wenn dort noch kein Öl geflossen ist. 

Achten Sie auf das Öl! 


Natürlich läßt es sich nicht verhindern, 
daß das Öl Sie und Ihre bereits gelegten 
Rohre irgendwann einholt und aus¬ 
läuft. Je mehr Rohrsegmente Sie je¬ 
doch zwischenzeitlich gelegt haben, 
um so eher schaffen Sie es, die in den 
jeweiligen Leveln vorgegebene Di¬ 
stanz zu verringern. Die Distanz eines 
jeden Levels wird in der rechten oberen 
Ecke über der Spielfläche angezeigt. In 
den höheren Leveln werden Sie zusätz¬ 
lich auf Hindernisse stoßen, die um¬ 
gangen werden müssen — schließlich 
fließt Öl ja nicht durch Wände! 

Ist das Öl am Ende der Pipeline ange¬ 
langt, die Distanz jedoch noch nicht auf 
Null, haben Sie verloren. Andernfalls 
steigen Sie auf in den nächsten Level 
und können neue Rohre legen — haben 
aber auch eine größere Distanz zu ver¬ 
ringern und müssen sich mit den er¬ 
wähnten Hindernissen hcrumärgern. 
Sollten Sie der Meinung sein, die Pipe¬ 
line nicht mehr fortsetzen zu können, 
drücken Sie die F-Taste. Das Öl be¬ 
ginnt dann schneller zu fließen, und Sie 
müssen nicht lange warten, bis es mit 
einer neuen Runde oder aber in einem 
neuen Level weitergeht. Nach <F> 
können Sie aber keine Rohrteile mehr 
ergänzen. 

Punkte gibt’s natürlich auch 


Für jedes durchflossene Rohr bekom¬ 
men Sie 50 Punkte. Ist die Mindestlän¬ 
ge überschritten (Distanz = 0), gibt es 
für jedes durchflossene Rohr 100 
Punkte. Sollten Sie gar ein Pipeline- 
Meister sein und es schaffen, daß sich 
das Öl kreuzt, erhalten Sie 500 Punkte. 
Für jedes Bonus- oder Tanksegnient 
gibt es 500 Punkte. Wenn die Mindest¬ 
länge überschritten ist (Distanz = 0), 
gibt es 1000 Punkte. 


L 
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Bild I: PIPEUNE nach dem Sinn sehen Sie die TOP FlVt Bild 2: Man glaubt es nicht, wie schwierig so eine Pipeline zu hauen ist 


Für das Abbauen eines Segments wer¬ 
den 50 Punkte abgezogen. Wenn die 
Taste <F> gedrückt wird, zählt das 
doppelt. Sind der Level oder das Spiel 
zu Ende, werden für jedes gesetzte, 
aber nicht durchflossene Segment 100 
Punkte abgezogen! 

Zu den Listings 

Das lauffähige Programm besteht aus 
vier Dateien: 

PIPELINE.BAS, PIPEL1NE.BIN, PIPE- 
LINE.GRA und PIPELINE.SCO. Das 
BASIC-Programm ist gleichzeitig das 


Startprogramm. Beim Abtippen des 
BASIC-Teils sollte man die Befehle 

KEY DEF 66,0,0,0,0 

und 

CALL &BB48 

am Anfang des Programms zunächst 
weglassen und erst dann einbauen, 
wenn nach einem Test der Rest des 
Programms einwandfrei läuft, da 
durch die Befehle die ESC-Taste aus¬ 
geschaltet wird. 

Das Binärprogramm für das Setzen der 
Grafik und das Scrollen der Fenster 
wird durch den Datalader PIPELINE 
.LD1 erstellt. Die Grafiken selbst sind 


sehr umfangreich, so daß man eine lee¬ 
re Diskette zum Speichern nehmen 
sollte. Sie sind in der Datei PIPELINE 
.GRA abgelegt, welche durch PIPE¬ 
LINE. LD2 erstellt wird. 

Die TOP-FIVE-Liste des Eingangsme¬ 
nüs wird in einer ASCII-Datei namens 
PIPELINE.SCO abgelegt. Eine neue 
TOP-FIVE-Liste wird mit dem Pro¬ 
gramm PIPELINE.SCM auf die Dis¬ 
kette geschrieben. 

Tja, denn man Tau - spucken Sie in 
die Hände, und lassen Sie sich vom Öl 
nicht unterkriegen. 

(Ralf Brostedt/tk) 


für 664-6128 

I— ~ 

1000 '================================= [2058] 

1010 ' [117] 

1020 ' PIPELINE [298] 

1030 ' [117] 

1040 ' [117] 

1050 ' (c)1990 by Ralf Brostedt [1793] 

1060 ' [117] 

1080 ' [117^ 1 

1090 ' [117] 

1100 SYMBOL AFTER 256:MEMORY &7FFF:SYMBOL [3432] 

AFTER 32 

1110 LOAD"pipeline.gra",&8000 [1835] 

1120 LOAD"pipeline.bin",&9C20 [1979] 

1130 DIM name$(5),hsc!(5):OPENIN"pipeline. [5769] 

sco":FOR i=l TO 5:LINE INPUT#9,name S(i):IN 


PUT#9,hsc1(i):NEXT:CLOSEIN 

1140 DEFINT a-z:SPEED KEY 10,10 [1548] 

1150 sprite=&9C20 [916] 

1160 SCroll=&9C7F [946] 

1170 rahmen=&9CC4 [1562] 

1180 symaft=SrB734 : 'CPC464: Sb294 [1828] 

1190 chmode=&B7C3:'CPC464: &blc8 [1820] 

1200 DEF FNx(x)=32+24*x:DEF FNy(y)=199-24* [1657] 

y 

1210 ENV 1,15,-1,12:ENV 2,15,-1,2 [2007] 

1220 ENT-1,4,20,1,4,-1,1:ENT-2,1,-10,5 [1900] 

1230 KEY DEF 6,0:KEY DEF 76,0:KEY DEF 66,0 [2832] 
,0,0:CALL &BB48 

1240 ' [117] 

1250 '- Mode 1-Symbole: [985] 

i ' ru7i 


1270 SYMBOL 32,55,119,119,119,119,119,55,2 [2663] 
55 

1280 SYMBOL 33,255,255,255,255,255,255,255 [2612] 
,255 

1290 SYMBOL 48,55,119,119,119,119,119,55,2 [2215] 
55 

Lisiing PIPELINE BAS 


49.191.63.191.191.191.191.55.2 [2218] 

50.55.119.247.55.127.127.55.25 [2717] 

51.55.119.247.183.247.119.55.2 [2941] 
52,119,119,119,55,247,247,247, [2545] 

53.55.127.55.247.247.119.55.25 [2569] 

54.55.119.127.55.119.119.55.25 [2669] 
55,55,247,247,183,191,191,191, [2140] 

56.55.119.119.55.119.119.55.25 [2446] 

57.55.119.119.55.247.119.55.25 [2697] 
58,255,255,191,191,255,191,191 [2991] 

65.55.119.119.55.119.119.119.2 [2333] 

66.55.119.119.63.119.119.55.25 [1861] 

67.55.119.127.127.127.119.55.2 [1848] 

68.63.119.119.119.119.119.63.2 [2569] 

69.55.127.127.63.127.127.55.25 [2559] 

70.55.127.127.63.127.127.127.2 [2124] 

71.55.127.127.119.119.119.55.2 [2226] 

73.55.191.191.191.191.191.55.2 [2505] 

74,0 [915] 

76,127,127,127,127,127,127,55, [2547] 

77.119.55.55.119.119.119.119.2 [2563] 

l.isnng PIPELINE BAS 



1300 

55 

SYMBOL 

1310 

5 

SYMBOL 

1320 

55 

SYMBOL 

1330 

255 

SYMBOL 

1340 

5 

SYMBOL 

1350 

5 

SYMBOL 

1360 

255 

SYMBOL 

1370 

5 

SYMBOL 

1380 

5 

SYMBOL 

1390 

,255 

SYMBOL 

1400 

55 

SYMBOL 

1410 

5 

SYMBOL 

1420 

55 

SYMBOL 

1430 

55 

SYMBOL 

1440 

5 

SYMBOL 

1450 

55 

SYMBOL 

1460 

55 

SYMBOL 

1470 

55 

SYMBOL 

1480 

SYMBOL 

1490 

255 

SYMBOL 

1500 

55 

SYMBOL 
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1510 SYMBOL 78,55,119,119,119,119,119,119, [2338] 
255 

1520 SYMBOL 79,55,119,119,119,119,119,55,2 [2247] 

55 

1530 SYMBOL 80,55,119,119,55,127,127,127,2 [2641] 

55 

1540 SYMBOL 82,55,119,119,55,63,119,119,25 [2258] 

1550 SYMBOL 83,55,127,127,55,247,247,55,25 [2487] 

5 

1560 SYMBOL 84,55,191,191,191,191,191,191, [2784] 
255 

1570 SYMBOL 85,119,119,119,119,119,119,55, [2240] 
255 

1580 SYMBOL 86,119,119,119,119,119,191,191 [2917] 
,255 

1590 ' [117] 

1600 DIM feld(10,7),weg$(16,4),ausgang(16, [2780] 

4 ) 

1610 RESTORE:FOR i=2 TO 16:FOR 3=1 TO 4:RE [5391] 

AD weg$(i,j),ausgang(i,j):NEXT:NEXT 

1620 ' [117] 

1630 '- Daten zu den Bausteinen: [2992] 

1640 ' [117] 

1650 DATA "01090a05",2,"",0,"",0,"050a0901 [1699] 

", 3 

1660 DATA "010b0c08",4,"080c0b01",3,"",0," [2078] 

",0 

1670 DATA ,0,"",0,"040e0d05",2,"050d0e04 [2662] 
"/I 

1680 DATA l " l ,0,"08100f04",l,"040fl008",4," [2407] 
",0 

1690 DATA "01020304",1,"",0,"04030201",3," [1260] 
",0 

1700 DATA "",0,"08070605",2,"",0,"05060708 [2510] 

" , 4 

1710 DATA "01020304",1,"08070605",2,"04030 [2036] 
201",3,"05060708",4 

1720 DATA "01020304",1,"",0,"04030201",3," [1260] 
",0 

1730 DATA "",0,"08070605",2,"",0,"05060708 [2510] 

" , 4 

1740 DATA "0102031112131404",1,"",0,"04030 [2122] 
21112131401",3,"",0 

1750 DATA "",0,"0807061112131405",2,"",0," [3744] 
0506071112131408",4 
1760 DATA "0201" , 3, "",0,"",0,"",0 
1770 DATA "0708",4,"",0,,0,"",0 
1780 DATA "0304",1,"",0,"",0,"",0 
1790 DATA "0605",2,"",0,"",0,"",0 
1800 hind$="0002334322433301022334450" 

1810 bons$="0010000011122233322121124" 

1820 tank$="0001121200131211212311233" 

1830 dist$="0357999AAABBBCCCDDDEEEFFF" 

1840 DIM teileS(25):FOR i=l TO 25:teile$(i [3845] 

)=SPACE$(14):FOR j=0 TO 5:FOR k=0 TO 1 

1850 a=INT(RND*14)+1:IF MID$(teile$(i),a,1 [3422] 

)<>" "THEN 1850 

1860 MID$(teileS(i),a)=CHR$(j):NEXT k:NEXT [2005] 

1870 FOR k=0 TO 1:a=INSTR(teileS(i)," "):M [6364] 

ID$(teile$(i),a)=CHR$(6):NEXT k:NEXT i 

1880 ' [117] 

1890 '- Titelbild: [1359] 

1900 ' . [117] 

1910 MODE 1:BORDER 0:INK 0,0:INK 1,25:INK [3658] 
2,15:INK 3,14:POKE symaft,240 

1920 PAPER 0:PEN 1:LOCATE 13,3:PRINT"SOFTI [4422] 
CE presents" 

1930 PEN 3:PAPER 0:RESTORE 1930:FOR i=ll T [4988] 

O 30:FOR j =5 TO 9:READ a:IF a THEN LOCATE 
i,j:PRINT CHR$(a+144); 

1940 NEXT:NEXT:PAPER 0 [1089] 

1950 DATA 6,5,7,5,1,10,0,10,0,0,12,5,9,0,0 [2122] 
,4,5,5,5,1 

1960 DATA 6,5,7,5,1,10,0,10,0,0,12,5,9,0,0 [1595] 
1970 DATA 6,5,7,5,3,10,0,8,0,10,8,0,0,0,8 [1451] 

1980 DATA 4,5,5,5,3,0,0,0,0,10,0,0,0,0,8,4 [1370] 
,5,5,5,1 

1990 DATA 6,5,5,5,1,12,5,5,5,3,4,5,5,5,9 [1705] 

2000 DATA 6,5,7,5,3,10,0,8,0,10,8,0,0,0,8 [1451] 

2010 PEN 2:LOCATE 10,11:PRINT CHR$(164)+" [4189] 

MXM by Ralf Brostedt" 

2020 PEN 1:LOCATE 17,14:PRINT"TOP FIVE" [1769] 
2030 PEN 3:FOR i=l TO 5:LOCATE 8,15+i:PRIN [6918] 
T USING"#.";i;:PRINT name$(i);:PRINT USING 
" #######";hsc!(i):NEXT 

2040 PEN 3:LOCATE 9,25:PRINT"Press Spaceba [2649] 
r for Start" 

2050 PEN 2:LOCATE 8,22:PRINT"1-Joystick [4138] 

3-Beginner" 

2060 LOCATE 8,23:PRINT"2-Keyboard 4-E [3766] 

xpert":PEN 1 

2070 WINDOW#1,6,7,22,24:WINDOW#2,34,35,22, [3655] 
24:PEN#1,1:PEN#2,1:PAPER#1,0:PAPER#2,0 
2080 CLS#1:LOCATE#1,1,1+w:PRINT#1,; [1234] 

2090 CLS#2:LOCATE#2,1,1+v:PRINT#2,; [2609] 

Listing: PIPELINE.BAS_ 


[1042] 

[1285] 

[1476] 

[1227] 

[1541] 

[1650] 

[1907] 

[1814] 


2100 a$=UPPER$(INKEY$) [789] 

2110 IF a$="l"THEN w=0:GOTO 2080 [1937] 

2120 IF a$="2"THEN w=l:GOTO 2080 [1428] 

2130 IF a$="3"THEN v=0:GOTO 2090 [1865] 

2140 IF a$="4"THEN v=l:GOTO 2090 [910] 

2150 IF a$<>" "THEN 2100 [647] 

2160 expert=v:POKE symaft,32 [1548] 

2170 ' [117] 

2180 '- Spielaufbau: [614] 

2190 ' [117] 

2200 MODE 0:BORDER 3:POKE chmode,! [2024] 


2210 WINDOW 1,40,1,25:WINDOW#1,8,37,2,3:WI [7902] 
NDOW#2,39,39,1,25:WINDOW#3,8,37,4,24:WINDO 
W#4,3,5,1,15:WINDOW#5,3,5,1,12:WINDOW#6,3, 

5,14,25 

2220 PEN 1:PAPER 0:PEN#1,1:PAPER#1,0:PAPER [2725] 
#2,3 

2230 ORIGIN 0,0,0,640,0,400 [860] 

2240 INK 0,0:INK 1,0:INK 2,13:INK 3,18:INK [7287] 
4,0:INK 5,0:INK 6,1:INK 7,2:INK 8,11:INK 
9,24:INK 10,6:INK 12,24,6:INK 13,6,24:INK 
14,24,1:INK 15,6 

2250 IF W=1 THEN hoch=240:runt=241:rech=24 [3193] 
3:link=242:fire=13 

2260 IF w=0 THEN hoch=l1:runt=10:rech=9:li [2817] 
nk=8:fire=88 

2270 CLS:PEN 1:PAPER 0 [467] 

2280 a$=STRING$(30,154):b$=CHR$(149) [2571] 

2290 FOR i=l TO 3 STEP 2:LOCATE 8,i:PRINT [4369] 
a$;:NEXT 

2300 LOCATE 8,25:PRINT a$;:LOCATE 7,1:PRIN [4929] 
T CHR$(150);:LOCATE 38,1:PRINT CHR$(156);: 

LOCATE 7,25:PRINT CHR$(147);:LOCATE 38,25: 

PRINT CHRS(153); 

2310 FOR i=2 TO 24:LOCATE 7,i:PRINT bS;:LO [3899] 
CATE 38,i:PRINT b$;:NEXT 

2320 FOR i=l TO 15+10*expert:LOCATE 2,i:PR [4517] 
INT b$;:LOCATE 6,i:PRINT b$;:NEXT 

2330 IF expert THEN LOCATE 2,13:PRINT CHR$ [5135] 
(151)+STRING5(3,154)+CHR$(157);ELSE LOCATE 
2,16:PRINT CHR$(147)+STRING$(3,154)+CHR$( 

153); 

2340 LOCATE 7,3:PRINT CHR$(151);:LOCATE 38 [4522] 
,3:PRINT CHRS(157); 


2350 INK 1,26:INK 4,9:INK 5,23 [1388] 

2360 LOCATEfl,1,1:PRINT#1,"LEV:00!!SCORE:0 [4866] 
000000!!DIST:00"; 

2370 level=l:score!=0 [1010] 

2380 ' [117] 

2390 '- Spielfeldaufbau: [945] 

2400 ' [117] 

2410 CLS#3:IF expert THEN CLS#5:CLS#6 ELSE [966] 
CLS #4 

2420 LOCATE#1,5,1:PRINT#1,USING"##";level; [2774] 
2430 FOR i=l TO 10:FOR j=l TO 7:feld(i,j)= [3572] 
21:NEXT:NEXT 

2440 lev=(level-1)MOD 25+1 [910] 

2450 hind=VAL("&"+MID$(hind$,lev,1)):bons= [5902] 
VAL("&"+MIDS(bons $,lev,1)):tank=VAL("&"+MI 
D$(tankS,lev,1)) 

2460 FOR i=l TO hind [1088] 

2470 x=INT(RND*10)+l:y=INT(RND*7)+l:IF fei [3466] 
d(x,y)<>21 THEN 2470 

2480 feld(x,y)=37:NEXT [1800] 

2490 FOR i=l TO bons:a=INT(RND*2) [1409] 

2500 x=INT(RND*10)+1:y=INT(RND*7)+1:IF fei [3468] 
d(x,y)<>21 THEN 2500 

2510 IF a THEN 2550 [391] 

2520 IF y=l OR y=7 THEN 2500 [1474] 


2530 f=feld(x,y-l)+feld(x,y+l):IF f<>42 TH [2567] 
EN 2500 

2540 feld(x,y)=29:feld(x,y-l)=-21:feld(x,y [3252] 
+1)=-21:GOTO 2580 

2550 IF x=l OR X=10 THEN 2500 [1537] 

2560 f=feld(x-l,y)+feld(x+l,y):IF f<>42 TH [2889] 
EN 2500 

2570 feld(x,y)=30:feld(x-l,y)=-21:feld(x+l [3564] 
,y)=-21 

2580 NEXT [350] 

2590 FOR i=l TO tank:a=INT(RND*2) [1741] 

2600 x=INT(RND*10)+1:y=INT(RND*7)+1:IF fei [3416] 

d(x,y)<>21 THEN 2600 

2610 IF a THEN 2650 [347] 

2620 IF y=l OR y=7 THEN 2600 [1391] 

2630 f=feld(x,y-l)+feld(x,y+l):IF f<>42 TH [2531] 

EN 2600 

2640 feld(x,y)=31:feld(x,y-l)=-21:feld(x,y [3204] 
+1)=-21:GOTO 2680 

2650 IF X=1 OR X=10 THEN 2600 [1708] 

2660 f=feld(x-l,y)+feld(x+l,y):IF f<>42 TH [3109] 
EN 2600 

2670 feld(x,y)=32:feld(x-l,y)=-21:feld(x+l [2058] 


,y)=-21 

2680 NEXT [350] 

2690 a=INT(RND*4) [1310] 

2700 X=INT(RND*10)+l:y=INT(RND*7)+l [1877] 

2710 IF a=0 AND y=l THEN 2700 [1141] 
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2720 IF a=l AND X=10 THEN 2700 [14351 

2730 IF a=2 AND y=7 THEN 2700 [16271 

2740 IF a=3 AND X=1 THEN 2700 [17041 

2750 ON a+1 GOTO 2760,2780,2800,2820 [1726] 

2760 IF feld(x,y-l)<>21 THEN 2700 [1345] 

2770 feld(x,y-l)=-21:GOTO 2840 [1446] 

2780 IF feld(x+l,y)<>21 THEN 2700 [1609] 

2790 feld(x+l,y)=-21:GOTO 2840 [708] 

2800 IF feld(x,y+l)<>21 THEN 2700 [1500] 

2810 feld(X,y+l)=-21:GOTO 2840 [1338] 

2820 IF feld(x-l,y)<>21 THEN 2700 [1158] 

2830 feld(x-l,y)=-21 636] 

2840 feld(x,y)=33+a [1021] 

2850 fx=x:fy=y:ff=l:weg$=weg$(13+a,1):aus= [26891 
ausgang(13+a,1) 

2860 FOR i=l TO 10:FOR j = l TO 7:feld(i,j)= r27201 

ABS(feld(i,j)):NEXT:NEXT 

2870 FOR i=l TO 10:FOR j=l TO 7:CALL sprit [4774] 
e,feld(l,j),FNx(i),FNy(j),0:NEXT:NEXT 

2880 IF level>25 THEN lev=25 [1444] 

2890 dist=VAL("&"+MID$(dist$,lev,1))+7 [1668] 

2900 LOCATE#l,29,1:PRINT#1,USING"##";dist; [2459] 

2910 sp$=teile$(RND*25+1):spl$=teile$(RND* [2757] 

2920 q=199:FOR i=5-expert TO 1 STEP-l:a=AS [4746] 

C(MID$(sp$,i))+22:CALL sprite,a,16,q,0:q=q 
-24:NEXT H * 

2930 IF expert THEN q=23:FOR i=4 TO 1 STEP [5745] 

-1:a=ASC(MID$(spl$,i))+22:CALL sprite,a,16 
,q,0:q=q+ 2 4:NEXT 

2940 CLS#2:fe=l:zz=0:11=0:res=400:cross=0: [2475] 
fault=0 

2950 loop=50-MIN(level,35) [1443] 

2960 EVERY loop/4,3 GOSUB 3420:SOUND 4,510 [3426] 
,100,12,,2 1 

2970 ' [117] 

2980 '- Hier beginnt das Spiel: [2690] 

2990 ' [ 117] J 

3000 DI:CALL rahmen,FNx(x),FNy(y):CALL rah [4295] 

men,FNx(x),FNy(y):EI 

3010 IF fault THEN 3680 [776] 

3020 a$=UPPER$(INKEYS):IF a$=""THEN 3000 E [2833] 

LSE a=ASC(a$) 1 1 

3030 IF a=hoch THEN y=y+(y>l):GOTO 3000 [2106] 

3040 IF a=runt THEN y=y-(y<7):GOTO 3000 [1600] 

3050 IF a=link THEN x=x+(x>l):GOTO 3000 [2570] 

3060 IF a=rech THEN x=x-(x<10):GOTO 3000 [3188] 

3070 IF a=fire AND fe THEN 3130 [1648] 

3080 IF a=70 THEN 3630 r1314 ] 

3090 GOTO 3000 f449 1 

3100 ' [117] 

3110 ' Teil plazieren: [13351 

3120 ' [117] 

3130 fe=0:ee=(NOT INKEY(21)AND expert) [1417] 

3140 zb=feld(x,y):IF zb>28 THEN fe=l:GOTO [2649] 

3000 1 J 

3150 IF ee THEN za=ASC(spl$)ELSE za=ASC(sp [3282] 

5) 

3160 j=103:IF expert THEN j=127:IF ee THEN [33071 
j=95 

3170 CALL sprite,38,16,j,0:11=3:EVERY 10,0 [2353] 

GOSUB 3290 1 

3180 za=za+22:IF zb=21 THEN feld(x,y)=za:C [6191] 

ALL sprite,za,FNx(x),FNy(y),0:SOUND 1,600, 

0,15,2:GOTO 3000 

3190 score!=score!-50:GOSUB 4050:SOUND 1,9 [2993] 
00,0,15,1,,15 1 1 

3200 feld(x,y)=0:zx=x:zy=y:zz=4:EVERY 20,1 [46281 

GOSUB 3240:EI:GOTO 3000 

3210 ' [117] 

3220 '- Altes Teil entfernen: [2144] 

3230 ' [117] 

3240 DI:a=(zz MOD 2)+40:CALL sprite,a,FNx( [3992] 
zx),FNy(zy),0:zz=zz-l:IF zz THEN EI:RETURN 

3250 xxx=REMAIN(1):feld(zx,zy)=za:CALL spr [5343] 
lte,za,FNx(zx),FNy(zy),0:fe=l:EI:RETURN 

3260 ' [ 117] 

3270 ' Spender scrollen [3911 

3280 ' [117] 

3290 DI:]=0:IF expert THEN j=l:IF ee THEN [39801 

3=2 

3300 CALL scroll,j:11=11-1:IF 11 THEN EI:R r14491 

ETURN 1 J 

3310 xxx=REMAIN(0):IF ee THEN spl$=MID$(sp [26241 

1 $,2) ELSE sp$=MID$(sp$,2) 

3320 IF ee THEN a=ASC(MID$(spl$,4))ELSE a= [3760] 
ASC(MID$(sp$,5-expert)) 1 J 

3330 j=199:IF ee THEN j=23 [1363] 

3340 CALL sprite,a+22,16,j,0 [1005] 

25+l) IF 6>LEN ( sp$ ) THEN sp$=sp$+teile$(RND* [2430] 

3360 IF 6>LEN(spl$)THEN spl$=spl$+teile$(R [1724] 

ND*25+1) 

3370 fe=(zz=0) [655] 

3380 EI:RETURN 41 6 i 

3390 ' [117] 

3400 ' Oel fliesst: [383] 
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3410 ' [1 17 | | 

3420 DI:res=res-4:FOR i=res TO res+3 STEP [4626] 

2:PLOT 623,i,0:DRAWR-15,0:NEXT 

3430 IF res THEN EI:RETURN [1214] 

3440 5 EV ERY loop,3 GOSUB 3460:SOUND 2,150,1 [2891] 

3450 ' [117] 

3460 DI:a=VAL("&"+LEFT$(weg$,2)):weg$=MID$ [4329 ] 

(weg$,3) 

3 ^ 70 ..^ ALL s P ri te,a, FNx( fx), FNy (fy), 1: IF we [3818] 
g$<>""THEN EI:RETURN 

3480 ON aus GOTO 3490,3500,3510,3520 [1376] 

3490 IF fy=7 THEN fault=l+REMAIN(3):GOTO 3 [31161 

590 ELSE fy=fy+l:GOTO 3530 J 

3500 IF fX=1 THEN fault=l+REMAIN(3):GOTO 3 [31321 

590 ELSE fx=fX-l:GOTO 3530 

3510 IF fy=l THEN fault=l+REMAIN(3):GOTO 3 [3550] 

590 ELSE fy=fy-l:GOTO 3530 1 J 

3520 IF fx=10 THEN fault=l+REMAIN(3):GOTO f22011 

3590 ELSE fx=fx+l 1 J 

3530 f=feld(fx,fy):IF f<>50 AND(f<22 OR f> [2652] 

32)THEN fault=l+REMAIN(3):GOTO 3590 

3540 fl=f+22*(f=50)-20:weg$=weg$(fl,aus):a [4318] 
us=ausgang(f1,aus):IF aus=0 THEN fault=l+R 

EMAIN(3):GOTO 3590 

3550 feld(fx,fy)=49-(f=28):IF f=50 THEN er [3317] 
oss=cross+l ‘ 

3560 IF(f<29 OR f>32)AND f<>50 THEN score! [4891] 
=score!+50-50*(dist<l):GOTO 3580 

3570 score!=score!+500*ff:IF f<>50 AND dis r4194l 
t<l THEN score!=score!+500*ff 

3580 GOSUB 4050:dist=dist-l:IF dist>=0 THE [55361 

N LOCATE#l,29,1:PRINT#1,USING"##";dist; 

3590 EI:RETURN r 4161 

3600 ' 117 

3610 '- Schnell-Gang: [1055] 

3620 ' [117] 

3630 xxx=REMAIN(3) :ff=2:SOUND 1,510,250,15 [1922] 

3640 GOSUB 3460:IF fault=0 THEN 3640 [1590] 

3650 ' [1171 

3660 '- Runde zu Ende: [771] 

3670 ' [1171 

3680 xxx=REMAIN(1):IF zz THEN zz=l:za=21:G [3733] 

OSUB 3240:feld(zx,zy)=21 J 

3690 za = 21:FOR zx=l TO 10:FOR zy=l TO 7:a= r35641 
feld(zx,zy) 

3700 IF a<22 OR a>28 THEN 3730 ELSE SOUND r46801 
129,900,0,15,1,,15 1 J 

3710 zz = 4:fe=0:WHILE fe=0:GOSUB 3240:FOR i r 29571 
=1 TO 100:NEXT:WEND 

3720 score!=score!-100:GOSUB 4050 r1347 1 

3730 NEXT zy:NEXT ZX 1382 

3740 IF cross>4 THEN LOCATE#3,2,5:PRINT#3, [8297 
"!BONUS!FOR!5!CROSSES:!!8000!";:score!=sco 
re!+8000:GOSUB 4050 

3750 IF dist>0 THEN 3830 [357] 

3760 LOCATE#3,8,17:PRINT#3,"!PRESS!SPACEBA [1557] 

RI». 1 J 

3770 IF INKEY$<>""THEN 3770 [9401 

3780 IF INKEY$<>" "THEN 3780 803] 

3790 level=level-(level<99):GOTO 2410 [16531 

3800 ' [117] 

3810 '-Game Over: r996 1 

3820 ' 117 

3830 LOCATE#3,10,10:PRINT#3,STRINGS(12,33) [2247] 

3840 LOCATE#3,10,11:PRINT#3,"!GAME!IOVER1" [2451] 

3850 LOCATE#3,10,12:PRINT#3,STRINGS(12,33) [2108] 

3860 LOCATE#3,8,17:PRINT#3,"!PRESS!SPACEBA [1557] 

R!"; 1 1 

3870 IF INKEY$<>""THEN 3870 [7851 

3880 IF INKEY$<>" »THEN 3880 926 

3890 MODE 1:POKE symaft,240:IF score!<hSc! [3404] 

(5)THEN 1910 J 

3900 INK 1,24,6:INK 2,20:INK 3,17 [928] 

3910 LOCATE 9,5:PEN 1:PRINT"You are in the [3758] 

Top Five." 

3920 LOCATE 10,8:PEN 2:PRINT"Please enter [2139] 
your Name" 

3930 LOCATE 15,14:PEN 3:PRINT STRING$(12," [1717] 

1940 LOCATE 15,14:LINE INPUT"",n$ [879] 

3950 n $=LEFT$(n$+SPACE$(13),12):a$=RIGHT$( [2948] 

" "+STR$(level),3):n$=n$+a$ 

3960 i=4 [432] 

3979 IF score!>=hsc!(i)THEN name$(i+1)=nam [7017] 
e$(i):hsc!( 1 + 1 )=hsc!(i):i=i-i :if i THEN 39 

70 

3980 name$(i+l)=n$:hsc!(i+l)=score! [10641 

3990 OPENOUT"pipeline.sco" [19971 

4000 FOR i=l TO 5:PRINT#9,name$(i) [1358 

4010 PRINT#9,hsc!(i):NEXT:CLOSEOUT:GOTO 19 [24711 

10 1 1 

4020 ' [ 117 ] 
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4030 '- Score korrigieren und anzeigen: 

4040 ' 

4050 DI:IF score!<0 THEN score!=0 

4060 LOCATE#l ,15,1: PRINT# 1,USING"####### 11 ; 
score!;:EI:RETURN 

Lisling: PIPELINE BAS 

[2008] 

[117] 

[1351] 

[3401] 

10 adr=39968:MEMORY adr-1 

[1043] 

20 length=212 

[381] 

30 zeile=130 

[595] 

40 PRINT zeile;:sum=0:FOR i=l TO 8:READ a$ 

:POKE adr,VAL("&"+a$):sum=sum+PEEK(adr):ad 
r=adr+l:NEXT i 

[3566] 

50 READ s:IF sosum THEN PRINT" Error...": 
STOP 

[3131] 

60 PRINT" OK.":IF adr<39968+length THEN ze 
ile=zeile+lo-.GOTO 40 

[4161 ] 

70 PRINT"Start: ";39968:PRINT"Laenge:";len 
gth 

80 PRINT"MC O.K. Abspeichern gewuenscht?"; 

[3805] 

[3048] 

90 a$=UPPER$(INKEYS):IF a$="N"THEN END 

[2006] 

100 IF a$<>"J"THEN 90 

[1176] 

110 SAVE"pipeline.bin",b,39968,length 

[3101] 

120 END 

[110] 

130 DATA FE,04,DD,6E,02,DD,66,03,917 

[1377] 

140 DATA DD,5E,04,DD,56,05,CD,ID,865 

[917] 

150 DATA BC,DD,7E,06,CD,B5,9C,DD,1304 

[1632] 

160 DATA 7E,00,B7,C2,55,9C,06,18,774 

[1441] 

170 DATA C5,01,06,00,EB,ED,B0,EB,1087 

[1468] 

180 DATA 01,06,00,A7,ED,42,CD,26,720 

[19CP ] 

190 DATA BC,CI,10,EC,C9,06,18,C5,1061 

[818] 

200 DATA 06,06,C5,1A,47,7E,CB,78,755 

[1239] 

210 DATA CA,65,9C,F6,AA,CB,70,CA,1392 

[1803] 

220 DATA 6C,9C,F6,55,77,CI,23,13,961 

[1426] 

230 DATA 10,E8,01,06,00,A7,ED,42,725 

[1014] 

240 DATA CD,26,BC,CI,10,D9,C9,FE,1312 

[1190] 

250 DATA 01,C0,DD,7E,00,B7,C2,96,1067 

[1705] 

260 DATA 9C,06,00,26,02,2E,00,16,270 

[1402] 

270 DATA 04,1E,0E,C3,50,BC,3D,C2,766 

[1738] 

280 DATA A7,9C,06,00,26,02,2E,00,415 

[906] 

290 DATA 16,O4,lE,0B,C3,50,BC,AF,705 

[1536] 

300 DATA 06,01,26,02,2E,0D,16,04,132 

[1296] 

310 DATA IE,18,C3,50,BC,E5,21,70,891 

[1347] 

320 DATA 7F,01,90,00,09,3D,C2,BC,724 

[1255] 

330 DATA 9C,EB,El,C9,FE,02,C0,DD,1486 

[2140] 

340 DATA 6E,00,DD,66,01,DD,5E,02,751 

[1945] 

350 DATA DD,56,03,CD,1D,BC,3E,27,833 

[690] 

360 DATA CD,B5,9C,06,18,C5,06,06,781 

[1905] 

370 DATA 1A,AE,77,23,13,10,F9,01,639 

[1879] 

380 DATA 06,00,A7,ED,42,CD,26,BC,907 

[1380] 

390 DATA CI,10,EA,C9,00,00,00,00,644 

Lisling PIPELINE LDl 

[1857] 

10 adr=32768:MEMORY adr-1 

[1008] 

20 length=5904 

[371] 

30 zeile=130 

[595 ] 

40 PRINT zeile; :sum=0:READ a$:IF a$o"*"TH 
EN FOR i=l TO 8:POKE adr,VAL("&"+a$):sum=s 
um+PEEK(adr):adr=adr+l:READ a$:NEXT i:GOTO 

[8453] 

41 FOR i=0 TO 7:POKE adr+i,0:NEXT:adr=adr+ 
8 :GOTO 60 

[2191 ] 

50 s=VAL(a$):IF sosum THEN PRINT" Error.. 

.":STOP 

[3572] 

60 PRINT" OK.":IF adr<32768+length THEN ze 
ile=zeile+10:GOTO 40 

[3940] 

70 PRINT"Start: ";32768:PRINT"Laenge:";len 
gth 

80 PRINT"MC O.K. Abspeichern gewuenscht?"; 

[3263] 

[3048] 

90 a$=UPPERS(INKEYS):IF a$="N"THEN END 

[2006] 

100 IF a$<>"J"THEN 90 

[1176] 

110 SAVE"pipeline.gra",b,32768,1ength 

[2365] 

120 END 

[110] 

130 DATA 00,00,55,AA,00,00,00,00,255 

[1269] 

140 DATA 55,AA,00,00,00,00,55,AA,510 

[1448] 

150 DATA 00,00,00,00,55,AA,00,00,255 

[1427] 

160 DATA 00,00,55,AA,00,00,00,00,255 

[1269] 

170 DATA 55,AA,00,00,00,00,00,00,255 

[1725] 

180 DATA *,*,*,*,*,*,*,*,*,* 

[948] 

190 DATA *,*,*,*,*,*,* 

[799] 

350 DATA 00,00,00,00,00,00,55,AA,255 

[1299] 

360 DATA 00,00,00,00,55,AA,00,00,255 

[1427] 

370 DATA 00,00,55,AA,00,00,00,00,255 

[1269] 

380 DATA 55,AA,00,00,00,00,55,AA,510 

[1448] 

390 DATA 00,00,00,00,55,AA,00,00,255 

[1427] 

400 DATA *,*,*,*,*,*,*,*,* 

[909] 

410 DATA *,*,*,*,*,*,*,*,* 

[909] 

580 DATA 00,00,55, AA, 00,00,00,00,255 

[1269] 

590 DATA 55,AA,00,00,00,00,55,AA,510 

[1448] 

600 DATA 00,00,00,00,55,AA,00,00,255 

[1427] 

610 DATA 00,00,55,AA,00,00,00,00,255 

[1269] 

620 DATA 55,AA,00,00,00,00,00,00,255 

[1725] 

630 DATA *,*,*,*,*,*,*,*,* 

[909] 

640 DATA *,*,*,*,*,*,*,* 

[923] 

800 DATA 00,00,00,00,00,00,55,AA,255 

[1299] 

810 DATA 00,00,00,00,55,AA,00,00,255 
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[1427] 


820 DATA 00,00,55 ; AA,00,00,00,00,255 
830 DATA 55,AA,00,00,00,00,55,AA,510 
840 DATA 00,00,00,00,55,AA,00,00,255 
850 DATA *,*,*,*,*,*,* 

920 DATA 00,00,00,00,FF,AA,00,00,425 
930 DATA 00,00,FF,AA,00,00,00,00,425 
940 DATA FF,AA,00,00,00,00,FF,AA,850 
950 DATA *,*,*,*,*,*,*,* 

960 DATA *,*,*,*,*,*,* 

1100 DATA 00,00,00,00,00,55,FF,00,340 
1110 DATA 00,00,00,55,FF,00,00,00,340 
1120 DATA 00,55,FF,00,00,00,00,55,425 
1130 DATA FF,00,00,00,00,00,00,00,255 
1140 DATA *,*,*,*,*,*,*,*,*,*,*,*,*,* 
1280 DATA 00,00,00,00,00,00,00,FF,255 
1290 DATA AA,00,00,00,00,FF,AA,00,595 
1300 DATA 00,00,00,FF,AA,00,00,00,425 
1310 DATA 00,FF,AA,00,00,00,00,00,425 
1320 DATA *,*,*,*,*,*,*,* 

1330 DATA *,*,*,*,*,*,* 

1470 DATA 55,FF,00,00,00,00,55,FF,680 
1480 DATA 00,00,00,00,55,FF,00,00,340 
1490 DATA 00,00,55,FF,00,00,00,00,340 
1500 DATA *,*,*,*,*,*,*,*,*,*,* 

1610 DATA 00,00,00,00,00,00,FF,AA,425 
1620 DATA 00,00,00,00,FF,AA,00,00,425 
1630 DATA 00,00,FF,AA,00,00,00,00,425 
1640 DATA 55,AA,00,00,00,00,55,00,340 
1650 DATA *,*,*,*,*,*,*,* 

1660 DATA *,*,*,*,*,*,*,* 

1810 DATA 00,55,00,00,00,00,00,55,170 
1820 DATA AA,00,00,00,00,55,AA,00,425 
1830 DATA 00,00,00,55,FF,00,00,00,340 
1840 DATA 00,55,AA,00,00,00,00,55,340 
1850 DATA AA,00,00,00,00,00,00,00,170 
1860 DATA *,*,*,*,*,*,*,*,*,*,* 

1970 DATA 00,00,00,00,00,00,55,FF,340 
1980 DATA 00,00,00,00,55,FF,00,00,340 
1990 DATA 00,00,55,FF,00,00,00,00,340 
2000 DATA 55,AA,00,00,00,00,00,AA,425 
2010 DATA *,*,*,*,*,*,*,* 

2020 DATA *,*,*,*,*,*,*,* 

2170 DATA 00,00,00,00,AA,00,00,00,170 
2180 DATA 00,55,AA,00,00,00,00,55,340 
2190 DATA AA,00,00,00,00,FF,AA,00,595 
2200 DATA 00,00,00,55,AA,00,00,00,255 
2210 DATA 00,55,AA,00,00,00,00,00,255 
2220 DATA *,*,*,*,*,*,*,*,*,*,*,*,*,* 
2360 DATA 00,00,00,00,00,55,AA,00,255 
2370 DATA 00,00,00,55,AA,00,00,00,255 
2380 DATA 00,55,FF,00,00,00,00,55,425 
2390 DATA AA,00,00,00,00,55,AA,00,425 
2400 DATA 00,00,00,55,00,00,00,00,85 
2410 DATA *,*,*,*,*,*,*,* 

2420 DATA *,*,*,*,*,*,*,* 

2570 DATA 55,00,00,00,00,00,55,AA,340 
2580 DATA 00,00,00,00,FF,AA,00,00,425 
2590 DATA 00,00,FF,AA,00,00,00,00,425 
2600 DATA FF,AA,00,00,00,00,00,00,425 
2610 DATA *,*,*,*,*,*,*,*,*,*,*,*,*,* 
2750 DATA 00,AA,00,00,00,00,55,AA,425 
2760 DATA 00,00,00,00,55,FF,00,00,340 
2770 DATA 00,00,55,FF,00,00,00,00,340 
2780 DATA 55,FF,00,00,00,00,00,00,340 
2790 DATA *,*,*,*,*,*,*,*,*,*,* 

2900 DATA 00,00,00,00,00,00,00,55,85 
2910 DATA AA,00,00,00,00,55,AA,00,425 
2920 DATA 00,00,00,FF,AA,00,00,00,425 
2930 DATA 00,55,AA,00,00,00,00,55,340 
2940 DATA AA,00,00,00,00,00,AA,00,340 
2950 DATA *,*,*,*,*,*,*,*,*,*,*,* 

3070 DATA 00,00,55,AA,00,00,00,00,255 
3080 DATA FF,FF,00,00,00,00,FF,FF,1020 
3090 DATA 00,00,00,55,FF,FF,AA,00,765 
3100 DATA 00,55,FF,FF,AA,00,00,00,765 
3110 DATA FF,FF,00,00,00,00,FF,FF,1020 
3120 DATA 00,00,00,00,55,AA,00,00,255 

3240 DATA 00,00'00,00', 55 , Aa'00,00,255 
3250 DATA 00,00,FF,FF,00,00,00,55,595 
3260 DATA FF,FF,AA,00,00,55,FF,FF, 1275 
3270 DATA AA,00,00,55,FF,FF,AA,00,935 
3280 DATA 00,55,FF,FF,AA,00,00,55,850 
3290 DATA FF,FF,AA,00,00,55,FF,FF,1275 
3300 DATA AA,00,00,00,FF,FF,00,00,680 
3310 DATA 00,00,55,AA,00,00,00,00,255 
3320 DATA *,*,*,*,*,*,*,*,* 

3410 DATA 00,00,00,00,00,00,55,AA,255 
3420 DATA 00,00,00,00,FF,FF,00,00,510 
3430 DATA 00,55,FF,FF,AA,00,00,55,850 
3440 DATA FF,FF,AA,00,00,FF,FF,FF,1445 
3450 DATA FF,00,00,FF,FF,FF,FF,00,1275 
3460 DATA 00,FF,FF,FF,FF,00,00,FF,1275 
3470 DATA FF,FF,FF,00,00,55,FF,FF,1360 
3480 DATA AA,00,00,55,FF,FF,AA,00,935 
3490 DATA 00,00,FF,FF,00,00,00,00,510 
3500 DATA 55,AA,00,00,00,00,00,00,255 
LiStlng: PIPELINE LD2 


[1269] 
[1448] 
[1427] 
[799] 
[1908] 
[1489] 
[1690] 
[923] 
[799] 
[833] 
[969] 
[1274] 
[1231] 
[1273] 
[1251] 
[1649] 
[1745] 
[810] 
[923] 
[799] 
[1195] 
[1662] 
[949] 
[1048] 
[846] 
[1908] 
[1489] 
[1680] 
[923] 
[923] 
[1628] 
[1152] 
[969] 
[1235] 
[580] 
[1048] 
[1404] 
[1662] 
[949] 
[1597] 

[ 923] 
[923] 
[1281] 
[1235] 
[1649] 
[1489] 
[1501] 
[1273] 
[1056] 
[1489] 
[1274] 
[1152] 
[1791] 
[923] 
[923] 
[1800] 
[1908] 
[1489] 
[ 1210 ] 
[1273] 
[1836] 
[1662] 
[949] 
[1079] 
[1048] 
[1073] 
[1152] 
[1745] 
[1235] 
[703] 
[1191] 
[1269] 
[1214] 
[1533] 
[1591] 
[1214] 
[1427] 
[1048] 
[1427] 
[ 1060 ] 
[1405] 
[1434] 
[1515] 
[1405] 
[1866] 
[1269] 
[909] 
[1299] 
[1990] 
[1515] 
[ 1253] 
[1207] 
[1694] 
[1345] 
[1434 ] 
[1236] 
[1725] 
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Programm—i 


3510 DATA *,*,*,*,*,*,*,* [923 J 

3590 DATA 55,AA,00,00,00,00,FF,FF,765 [1515] 

3600 DATA 00,00,00,55,FF,FF,AA,00,765 [1533] 

3610 DATA 00,55,FF,FF,AA,00,00,FF,1020 [1703] 

3620 DATA FF,FF,FF,00,00,FF,FF,FF,1530 [1206] 

3630 DATA FF,00,00,FF,FF,FF,FF,00,1275 [1207] 

3640 DATA 00,FF,FF,FF,FF,00,00,FF,1275 [1694] 

3650 DATA FF,FF,FF,00,00,FF,FF,FF,1530 [1206] 

3660 DATA FF,00,00,55,FF,FF,AA,00,1020 [1317] 

3670 DATA 00,55,FF,FF,AA,00,00,00,765 [1591] 

3680 DATA FF,FF,00,00,00,00,55,AA,765 [1289] 

3690 DATA *,*,*,* [80] 

3730 DATA 30,30,64,98,30,30,30,30,540 [963] 

3740 DATA CC,CC,30,30,30,64,CC,CC,1060 [1228] 

3750 DATA 98,30,30,64,CC,CC,98,30,956 [1367] 

3760 DATA 30,CC,CC,CC,CC,30,30,CC,1164 [867] 

3770 DATA CC,CC,CC,30,64,CC,CC,CC,1372 [871] 

3780 DATA CC,98,64,CC,CC,CC,CC,98,1424 [1041] 

3790 DATA 64,CC,CC,CC,CC,98,CC,CC,1476 [1461] 

3800 DATA CC,CC,CC,CC,CC,CC,CC,CC,1632 [1305] 

3810 DATA CC,CC,CC,CC,CC,F0,CC,CC,1668 [1460] 

3820 DATA CC,CC,D8,FO,E4,CC,CC,CC,1704 [779] 

3830 DATA D8,FO,E4,CC,CC,CC,FO,FO,1776 [2164] 

3840 DATA FO,CC,64,CC,FO,FO,FO,98,1620 [1957] 

3850 DATA 64,CC,FO,FO,FO,98,64,CC,1480 [511] 

3860 DATA D8,FO,E4,98,30,CC,D8,FO,1544 [1135] 

3870 DATA E4,30,30,CC,CC,FO,CC,30,1224 [1693] 

3880 DATA 30,64,CC,CC,98,30,30,64,904 [1114] 

3890 DATA CC,CC,98,30,30,30,CC,CC,1112 [1480] 

3900 DATA 30,30,30,30,64,98,30,30,540 [1575] 

3910 DATA 30,BC,FC,56,F4,30,30,BC,1102 [1569] 

3920 DATA FC,56,F4,30,30,74,7C,52,1000 [1152] 

3930 DATA B8,30,30,74,7C,52,B8,30,834 [2166] 

3940 DATA B8,DC,7C,52,EC,30,B8,DC,1298 [2988] 

3950 DATA 7C,52,EC,30,F4,FC,7C,52,1192 [2352] 

3960 DATA EC,98,F4,FC,7C,52,EC,98,1478 [832] 

3970 DATA F8,FO,7C,52,EC,98,F8,FO,1570 [1696] 

3980 DATA 7C,52,EC,CC,03,03,FC,52,986 [2504] 

3990 DATA EC,CC,03,03,FC,56,EC,CC,1224 [1200] 

4000 DATA FC,FC,FC,7C,EC,CC,FC,FC,1824 [554] 

4010 DATA FC,7C,E4,CC,BC,3C,3C,FC,1368 [1341] 

4020 DATA FO,CC,BC,3C,3C,F8,FO,98,1392 [1336] 

4030 DATA 7C,FC,FC,F8,FO,98,7C,FC,1644 [1819] 

4040 DATA FC,FO,E4,98,B8,CC,D8,FO,1716 [1830] 

4050 DATA E4,30,B8,CC,CC,FO,CC,30,1360 [1345] 

4060 DATA 30,64,CC,CC,98,30,30,64,904 [1114] 

4070 DATA CC,CC,98,30,30,30,CC,CC,1112 [1480] 

4080 DATA 30,30,30,30,64,98,30,30,540 [1575] 

4090 DATA 30,BC,FC,56,F4,30,30,BC,1102 [1569] 

4100 DATA FC,56,F4,30,30,74,7C,52,1000 [1152] 

4110 DATA B8,30,30,74,7C,52,B8,30,834 [2166] 

4120 DATA 30,DC,7C,52,EC,74,30,DC,1094 [1486] 

4130 DATA 7C,52,EC,74,64,DC,7C,52,1084 [1687] 

4140 DATA FC,F8,64,DC,7C,52,FC,F8,1526 [1518] 

4150 DATA 64,DC,7C,03,F0,F4,CC,DC,1355 [1959] 

4160 DATA 7C,03,F0,F4,CC,DC,7C,A9,1328 [2170] 

4170 DATA 03,03,CC,DC,7C,A9,03,03,729 [1881] 

4180 DATA CC,DC,BC,FC,FC,FC,CC,CC,1776 [1820] 

4190 DATA BC,FC,FC,FC,CC,CC,FC,3C,1664 [1318] 

4200 DATA 3C,7C,64,CC,F4,3C,3C,7C,976 [1688] 

4210 DATA 64,CC,F4,FC,FC,BC,64,CC,1544 [1419] 

4220 DATA D8,FC,FC,BC,30,CC,D8,FO,1616 [2061] 

4230 DATA E4,74,30,CC,CC,FO,CC,74,1360 [2091] 

4240 DATA 30,64,CC,CC,98,30,30,64,904 [1114] 

4250 DATA CC,CC,98,30,30,30,CC,CC,1112 [1480] 

4260 DATA 30,30,30,30,64,98,30,30,540 [1575] 

4270 DATA 30,30,64,98,30,30,30,30,540 [953] 

4280 DATA CC,CC,30,30,30,64,CC,CC,1060 [1228] 

4290 DATA 98,30,30,64,CC,CC,98,30,956 [1367] 

4300 DATA B8,CC,CC,CC,CC,30,B8,CC,1436 [1988] 

4310 DATA CC,CC,CC,30,F4,FC,FC,CC,1612 [1014] 

4320 DATA CC,98,F4,FC,FC,EC,CC,98,1696 [1944] 

4330 DATA F8,FO,FO,EC,CC,98,F8,FO,1808 [2997] 

4340 DATA FO,FC,CC,CC,03,03,03,F4,1153 [1932] 

4350 DATA CC,CC,03,03,03,F4,EC,CC,1101 [1212] 

4360 DATA FC,FC,A9,52,EC,CC,FC,FC,1699 [1767] 

4370 DATA A9,52,EC,CC,BC,3C,FC,52,1273 [1845] 

4380 DATA F8,CC,BC,3C,FC,52,F8,98,1434 [2060] 

4390 DATA 7C,FC,7C,52,F8,98,7C,FC,1358 [1882] 

4400 DATA 7C,52,EC,98,B8,DC,7C,52,1204 [1076] 

4410 DATA EC,30,B8,DC,7C,52,EC,30,1178 [1228] 

4420 DATA 30,74,7C,52,B8,30,30,74,766 [1427] 

4430 DATA 7C,52,B8,30,30,BC,FC,56,1012 [1576] 

4440 DATA F4,30,30,BC,FC,56,F4,30,1158 [1488] 

4450 DATA 30,30,64,98,30,30,30,30,540 [963] 

4460 DATA CC,CC,30,30,30,64,CC,CC,1060 [1228] 

4470 DATA 98,30,30,64,CC,CC,98,30,956 [1367] 

4480 DATA 30,CC,CC,CC,CC,74,30,CC,1232 [1514] 

4490 DATA CC,CC,CC,74,64,CC,CC,FC,1488 [1125] 

4500 DATA FC,F8,64,CC,DC,FC,FC,F8,1776 [679] 

4510 DATA 64,CC,DC,F8,FO,F4,CC,CC,1664 [890] 

4520 DATA FC,FO,FO,F4,CC,CC,BC,A9,1741 [2266] 

4530 DATA 03,03,CC,DC,BC,A9,03,03,793 [1957] 

4540 DATA CC,DC,7C,FC,FC,FC,CC,DC,1728 [2145] 

4550 DATA 7C,FC,FC,FC,CC,DC,7C,BC,1616 [2226] 

4560 DATA 3C,7C,64,DC,7C,BC,3C,7C,1000 [1279] 

4570 DATA 64,DC,7C,52,FC,BC,64,DC,1286 [1410] 

Lisüng PIPELINE LD2 


4580 DATA 7C,52,FC,BC,30,DC,7C,52,1120 
4590 DATA EC,74,30,DC,7C,52,EC,74,1178 
4600 DATA 30,74,7C,52,B8,30,30,74,766 
4610 DATA 7C,52,B8,30,30,BC,FC,56,1012 
4620 DATA F4,30,30,BC,FC,56,F4,30,1158 
4630 DATA 30,74,7C,52,B8,30,30,74,766 
4640 DATA 7C,52,B8,30,30,74,7C,52,808 
4650 DATA B8,30,30,74,7C,52,B8,30,834 
4660 DATA 30,DC,7C,52,EC,30,30,DC,1026 
4670 DATA 7C,52,EC,30,64,DC,7C,52,1016 
4680 DATA EC,98,64,DC,7C,52,EC,98,1302 
4690 DATA 64,DC,7C,52,EC,98,CC,DC,1338 
4700 DATA 7C,52,EC,CC,CC,DC,7C,52,1276 
4710 DATA EC,CC,CC,DC,7C,52,EC,CC,1510 
4720 DATA CC,DC,7C,52,EC,CC,CC,DC,1494 
4730 DATA 7C,52,EC,CC,CC,DC,7C,52,1276 
4740 DATA F8,CC,64,DC,7C,52,F8,98,1378 
4750 DATA 64,DC,7C,52,F8,98,64,DC,1246 
4760 DATA 7C,52,EC,98,30,DC,7C,52,1068 
4770 DATA EC,30,30,DC,7C,52,EC,30,1042 
4780 DATA 30,74,7C,52,B8,30,30,74,766 
4790 DATA 7C,52,B8,30,30,74,7C,52,808 
4800 DATA B8,30,30,74,7C,52,B8,30,834 
4810 DATA 30,30,64,98,30,30,30,30,540 
4820 DATA CC,CC,30,30,30,64,CC,CC,1060 
4830 DATA 98,30,30,64,CC,CC,98,30,956 
4840 DATA 30,CC,CC,CC,CC,30,30,CC,1164 
4850 DATA CC,CC,CC,30,FC,FC,FC,FC,1668 
4860 DATA FC,FC,FC,FC,FC,FC,FC,FC,2016 
4870 DATA FO,FO,FO,FO,FO,FO,FO,FO,1920 
4880 DATA FO,FO,FO,FO,03,03,03,03,972 
4890 DATA 03,03,03,03,03,03,03,03,24 
4900 DATA FC, FC, FC, FC, FC, FC, FC, FC, 2016 
4910 DATA FC,FC,FC,FC,3C,3C,3C,3C,1248 
4920 DATA 3C,3C,3C,3C,3C,3C,3C,3C,480 
4930 DATA FC,FC,FC,FC,FC,FC,FC,FC,2016 
4940 DATA FC,FC,FC,FC,30,CC,D8,FO,1716 
4950 DATA E4,30,30,CC,CC,FO,CC,30,1224 
4960 DATA 30,64,CC,CC,98,30,30,64,904 
4970 DATA CC,CC,98,30,30,30,CC,CC,1112 
4980 DATA 30,30,30,30,64,98,30,30,540 
4990 DATA 30,BC,FC,56,F4,30,30,BC,1102 
5000 DATA FC,56,F4,30,30,74,7C,52,1000 
5010 DATA B8,30,30,74,7C,52,B8,30,834 
5020 DATA B8,DC,7C,52,EC,74,B8,DC,1366 
5030 DATA 7C,52,EC,74,F4,FC,7C,52,1260 
5040 DATA FC,F8,F4,FC,7C,52,FC,F8,1702 
5050 DATA F8,FO,7C,03,FO,F4,F8,FO,1587 
5060 DATA 7C,03,FO,F4,03,03,FC,A9,1038 
5070 DATA 03,03,03,03,FC,A9,03,03,439 
5080 DATA FC,FC,FC,FC,FC,FC,FC,FC,2016 
5090 DATA FC,FC,FC,FC,BC,3C,FC,BC,1696 
5100 DATA 3C,7C,BC,3C,FC,BC,3C,7C,1056 
5110 DATA 7C,FC,7C,52,FC,BC,7C,FC,1398 
5120 DATA 7C,52,FC,BC,B8,DC,7C,52,1256 
5130 DATA EC,74,B8,DC,7C,52,EC,74,1314 
5140 DATA 30,74,7C,52,B8,30,30,74,766 
5150 DATA 7C,52,B8,30,30,BC,FC,56,1012 
5160 DATA F4,30,30,BC,FC,56,F4,30,1158 
5170 DATA 30,74,7C,52,B8,30,30,74,766 
5180 DATA 7C,52,B8,30,30,3F,3F,3F,675 
5190 DATA 3F,30,30,3F,3F,3F,3F,30,459 
5200 DATA 30,3F,3F,3F,3F,30,30,3F,459 
5210 DATA 3F,3F,3F,30,64,DC,7C,52,763 
5220 DATA EC,98,64,DC,7C,52,EC,98,1302 
5230 DATA 64,DC,7C,52,EC,98,CC,DC,1338 
5240 DATA 7C,52,EC,CC,CC,3F,3F,3F,1039 
5250 DATA 3F,CC,CC,3F,3F,3F,3F,CC,927 
5260 DATA CC,3F,3F,3F,3F,CC,CC,3F,927 
5270 DATA 3F,3F,3F,CC,CC,DC,7C,52,1023 
5280 DATA F8,CC,64,DC,7C,52,F8,98,1378 
5290 DATA 64,DC,7C,52,F8,98,64,DC,1246 
5300 DATA 7C,52,EC,98,30,3F,3F,3F,831 
5310 DATA 3F,30,30,3F,3F,3F,3F,30,459 
5320 DATA 30,3F,3F,3F,3F,30,30,3F,459 
5330 DATA 3F,3F,3F,30,30,74,7C,52,607 
5340 DATA B8,30,30,74,7C,52,B8,30,834 
5350 DATA 30,30,64,98,30,30,30,30,540 
5360 DATA CC,CC,30,30,30,64,CC,CC,1060 
5370 DATA 98,30,30,64,CC,CC,98,30,956 
5380 DATA 35,6E,9D,6E,9D,3A,35,6E,808 
5390 DATA 9D,6E,9D,3A,BD,7E,BD,7E,1112 
5400 DATA BD,7E,BD,7E,BD,7E,BD,7E,1260 
5410 DATA B5,7A,B5,7A,B5,7A,B5,7A,1212 
5420 DATA B5,7A,B5,7A,17,2B,17,2B,738 
5430 DATA 17,2B,17,2B,17,2B,17,2B,264 
5440 DATA BD,7E,BD,7E,BD,7E,BD,7E,1260 
5450 DATA BD,7E,BD,7E,3D,3E,3D,3E, 876 
5460 DATA 3D,3E,3D,3E,3D,3E,3D,3E, 492 
5470 DATA BD,7E,BD,7E,BD,7E,BD,7E,1260 
5480 DATA BD,7E,BD,7E,35,6E,9D,7A,1072 
5490 DATA B5,3A,35,6E,9D,7A,9D,3A,896 
5500 DATA 30,64,CC,CC,98,30,30,64,904 
5510 DATA CC,CC,98,30,30,30,CC,CC,1112 
5520 DATA 30,30,30,30,64,98,30,30,540 
5530 DATA 30,74,7C,52,Bß,30,30,74,766 
5540 DATA 7C,52,B8,30,30,74,7C,52,808 
Listlng PIPELINE.LD2 


[1604] 

[1558] 

[1427] 

[1576] 

[1488] 

[1427] 

[1593] 

[2166] 

[1713] 

[2132] 

[1185] 

[673] 

[1863] 

[817] 

[1545] 

[1863] 

[1335] 

[1755] 

[1179] 

[953] 

[1427] 

[1593] 

[2166] 

[963] 

[1228] 

[1367] 

[867] 

[1015] 

[1583] 

[2300] 

[1483] 

[1425] 

[1583] 

[1891] 

[1343] 

[1583] 

[1986] 

[ 1693] 

[1114] 

[1480] 

[1575] 

[1569] 

[1152] 

[2166] 

[2513] 

[1343] 

[1758] 

[1690] 

[2276] 

[1554] 

[1583] 

[1548] 

[1869] 

[1935] 

[1397] 

[1681] 

[1427] 

[1576] 

[1488] 

[1427] 

[1368] 

[1535] 

[1745] 

[1333] 

[1185] 

[673] 

[2254] 

[1686] 

[879] 

[2550] 

[1335] 

[1755] 

[1784] 

[1535] 

[1745] 

[1295] 

[2166] 

[963] 

[1228] 

[1367] 

[1308] 

[2178] 

[1695] 

[912] 

[1624] 

[1450] 

[1695] 

[2694] 

[1013] 

[1695] 

[2248] 

[1737] 

[1114] 

[1480] 

[1575] 

[1427] 

[1593] 
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5550 d; 
5560 DJ 
5570 DJ 
5580 DJ 
5590 DJ 
5600 DJ 
5610 Di 
5620 D. 
5630 D. 
5640 D. 
5650 D. 
5660 D 
5670 D 
5680 D 
5690 D 
5700 D 
5710 D 
5720 D 
5730 D 
5740 D 
5750 D 
5760 D 
5770 D 
5780 D 
5790 E 
5800 E 
5810 E 
5820 E 
5830 E 
5840 E 
5850 E 
5860 E 
5870 E 
5880 I 
5890 I 
5900 [ 
5910 I 
5920 I 
5930 I 
5940 I 
5950 I 
5960 1 
5970 I 
5980 I 
5990 1 
6000 : 
6010 : 
6020 
6030 
6040 
6050 
6060' 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
6150 
6160 
6170 
6180 
6190 
6200 
6210 
6220 
6230 
6240 
6250 
6260 
6270 
6280 
6290 
6300 
6310 
6320 
6330 
6340 
6350 
6360 
6370 
6380 
6390 
6400 
6410 
6420 
6430 
6440 
6450 
6460 
6470 
6480 
6490 


DATA BE 
DATA 3C 
DATA 7C 
DATA F*: 
DATA 7< 
DATA FC 
DATA 0: 
DATA B< 
DATA F< 
DATA 5: 
DATA 7' 
DATA Fi 
DATA F 
DATA 3 
DATA 7' 
DATA B 
DATA 3 
DATA F 
DATA B 
DATA 3 
DATA F 
DATA F 
DATA F 
DATA 0 
DATA 0 
DATA F 
DATA F 
DATA B 
DATA F 
DATA 7 
DATA F 
DATA 3 
DATA E 
DATA 3 
DATA 3 
DATA 7 
DATA E 
i DATA 3 
i DATA 7 
i DATA E 
I DATA t 
I DATA : 
> DATA I 
) DATA ( 
I DATA < 
) DATA 1 
) DATA ( 
) DATA < 
) DATA i 
) DATA 
) DATA ' 
D' DATA 
D DATA 
D DATA ' 
D DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
10 DATA 
0 DATA 
i0 DATA 
0 DATA 
:0 DATA 
10 DATA 
,0 DATA 
>0 DATA 
JO DATA 
'0 DATA 
50 DATA 
>0 DATA 
)0 DATA 
10 DATA 
20 DATA 
30 DATA 
10 DATA 
50 DATA 
50 DATA 
70 DATA 
BO DATA 
90 DATA 


B8,30,30,FC,7C,52,FC,30,1038 [2218] 

30,BC,7C,A9,F4,30,30,BC,1057 l® 2 ® 

7C,A9,F4,30,74, BC, FC, A9,1310 
F4,B8,74,BC,FC,A9,F4,B8,1581 [J539] 

74,3C,FC,A9,52,B8,FC,3C,1175 
FC,A9,52,FC,BC,7C,FC,FC,1571 [1543] 

03,F4,BC,7C,FC,FC,03,F4,1310 [2506] 

BC,7C,FC,FC,03,F4,BC,7C,1375 11004] 

FC,FC,03,F4,FC,3C,FC,A9,1484 2359 

52,FC,74,3C,FC,A9,52,B8,1197 [1500] 

74 BC,FC,A9,F4,B8,74,BC,1457 [1113] 

FC,A9,F4,B8,30,BC,7C,A9,1378 [2321] 

F4,30,30,BC,7C,A9,F4,30,1113 [1451] 

30,FC,7C,52,FC,30,30,74,970 [1402] 

7C,52,B8,30,30,74,7C,52,808 [1593] 

B8,30,30,74,7C,52,B8,30,834 [2166] 

30.30.74, B8,30,30,30,30,588 [i??3 

FC,FC,30,30,30,74,F8,F4,1256 t 21 **] 

B8,30,30,74,F8,F4,B8,30,1120 [1830] 

30,FC,F0,F0,FC,30,30,FC,1380 [ 1257 ] 

FO , FO,FC,30,FC,F8,Al,52,1523 [1940] 

F4 FC FC,F8,03,03,F4,FC,1498 [1985] 

FO,FO,03,03,FO,FO,FO,A1,1367 [2103] 

03,03,52,FO,03,03,56,A9,589 [1144] 

03,03,03,03,FC,FC,03,03,522 I?’®] 

FC,FC,FC,FC,FC,FC,FC,FC,2016 [1583] 

FC,FC,FC,FC,3C,7C,FC,FC,1696 [1437] 

BC,3C,3C,3C,FC,FC,3C,3C,992 [1143 

FC,BC,FC,FC,3C,FC,FC,BC,1696 [ !899 

7C,BC,7C,FC,30,FC,3C,3C,1108 1482] 

FC,30,30,FC,3C,3C,FC,30,1020 [1061 

30.74, BC,7C,B8,30,30,74,872 [1536] 

BC,7C,B8,30,30,30,FC,FC,1144 687] 

30.30.30.30.74, B8,30,30,588 [1651] 

30,74,7C,52,B8,30,30,74,766 [1427] 

. 7C,52,B8,30,30,74,7C,52,808 [1593] 

, B8,30,30,74,7C,52,B8,30,834 2166] 

> 30,DC,7C,52,EC,30,30,DC,1026 [1713] 

l 7C,52,EC,30,64,DC,7C,52,1016 [2132] 

l EC,98,64,DC,7C,52,EC,98,1302 [1185] 

k 64,DC,7C,52,EC,98,CC,DC,1338 673] 

i 7C,52,EC,CC,CC,DC,7C,52,1276 [1863] 

l EC,CC,CC,DC,7C,52,EC,CC,1510 [817] 

> CC,DC,BC,F4,EC,CC,CC,DC,1720 1651 

V C3,C3,EC,CC,CC,DC,C3,C3,1644 [1859] 

V F8,CC,64,DC,D6,FC,F8,98,1638 [1947] 

\ 64,DC,D6,FC,F8,98,64,DC,1506 [1927] 

\ C3,C3,EC,98,30,DC,C3,C3,1436 [1827 

\ EC,30,30,DC,FC,E9,EC,30,1321 
\ 30,74,FC,E9,B8,30,30,74,1045 [1384] 

\ C3,C3,B8,30,30,30,C3,C3,1108 [1804] 

\ 30,30,30,30,74,B8,30,30,588 [1651] 

ft 30,30,64,98,30,30,30,30,540 [963] 

ft CC,CC,30,30,30,64,CC,CC,1060 [1228] 

ft 98,30,30,64,CC,CC,98,30,956 [1367] 

& 30,CC,CC,CC,CC,30,30,CC,1164 [867 

ft CC,CC,CC,30,30,FC,FC,FC,1464 [812] 

ft FC,FC,61,C3,D6,FC,FC,FC,1766 [1386] 

ft 61,C3,D6,F0,F0,F0,E9,FC,1711 [1351] 

ft FC,F0,F0,F0,E9,FC,F8,03,1708 [1166] 

A 03,03,E9,C3,D2,03,03,03,653 [1611] 

A E9,C3,96,FC,FC,FC,FC,FC,1838 [992] 

A 96,FC,FC,FC,FC,FC,D6,3C,1684 [1853] 

A 3C,3C,61,C3,D6,3C,3C,3C,806 [712] 

A 61,C3,D6,FC,FC,FC,30,FC,1562 [1392] 

A FC,FC,FC,FC,30,CC,D8,FO,1716 [1986] 

A E4,30,30,CC,CC,FO,CC,30,1224 [1693] 

A 30,64,CC,CC,98,30,30,64,904 
A CC,CC,98,30,30,30,CC,CC,1112 [1480] 

A 30,30,30,30,64,98,30,30,540 [1575] 

A 30,30,74,B8,30,30,30,30,588 
A C3,C3,30,30,30,74,C3,C3,1040 t 19 ?® 

A B8,30,30,74,D6,FC,B8,30,1094 [2233] 

A 30,DC,D6,FC,EC,30,30,DC,1286 [1215] 

A C3,C3,EC,30,64,DC,C3,C3,1384 2009 

A EC,98,64,DC,FC,E9,EC,98,1581 [1636] 

A 64,DC,FC,E9,EC,98,CC,DC,1617 [1681] 

A C3,C3,EC,CC,CC,DC,C3,C3,1644 1859 

A EC,CC,CC,DC,BC,F4,EC,CC,1736 1258 

A CC DC,7C,52,EC,CC,CC,DC,1494 [1545] 

A 7C,52,EC,CC,CC,DC,7C,52,1276 [1863] 

A F8,CC,64,DC,7C,52,F8,98,1378 1335 

A 64,DC,7C,52,F8,98,64,DC,1246 [1755] 

A 7C,52,EC,98,30,DC,7C,52,1068 (1179] 

A EC,30,30,DC,7C,52,EC,30,1042 [953] 

A 30,74,7C,52,B8,30,30,74,766 [1^27] 

PA 7C,52,B8,30,30,74,7C,52,808 1593 

PA B8,30,30,74,7C,52,B8,30,834 2166] 

rA 30,30,64,98,30,30,30,30,540 963] 

rA CC,CC,30,30,30,64,CC,CC,1060 [J 22 ®] 

rA 98,30,30,64,CC,CC,98,30,956 1367] 

rA 30,CC,CC,CC,CC,30,30,CC,1164 867] 

rA CC,CC,CC,30,FC,FC,FC,FC,1668 1015 

rA FC,30,FC,FC,FC,E9,C3,92,1630 [1315 

rA F0,F0,F0,E9,C3,92,F0,F0,1774 [2713] 


6500 D 
6510 D 
6520 D 
6530 D 
6540 D 
6550 D 
6560 D 
6570 D 
6580 D 
6590 E 
6600 E 
6610 E 
6620 E 
6630 E 
6640 E 
6650 E 
6660 E 
6670 E 
6680 E 
6690 E 
6700 E 
6710 E 
6720 I 
6730 I 
6740 I 
6750 I 
6760 I 
6770 I 
6780 I 
6790 I 
6800 I 
6970 I 
6980 I 
6990 1 
7000 1 
7010 I 
7020 I 
7030 I 
7040 : 
7050 : 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 
7160 
7170 
7180 
7190 
7200 
7210 
7220 
7230 
7240 
7250 
7260 
7270 
7280 
7290 
| 7300 
7310 
7320 
7330 
7340 
7350 
7360 
7370 
7380 
7390 
7400 
7410 
7420 
7430 
7440 
7450 
7460 
7470 
7480 
7490 
7500 


DATA F 
DATA F 
DATA F 
DATA F 
DATA F 
DATA F 
DATA F 
DATA E 
DATA 3 
DATA C 
DATA 3 
DATA 3 
DATA F 
DATA B 
DATA 3 
DATA F 
DATA F 
DATA 7 
DATA F 
DATA C 
DATA E 
DATA C 
DATA F 
DATA 1 
DATA E 
DATA E 
DATA 2 
DATA E 
DATA 2 
DATA * 
DATA * 
DATA C 
DATA C 
DATA ( 
DATA f 
DATA ( 
DATA ( 
DATA f 
DATA ( 
DATA l 
DATA J 
DATA l 
DATA 
DATA l 
DATA ' 
DATA ' 
DATA 
' DATA 
i DATA 
i DATA 
i DATA 
I DATA 
I DATA 
) DATA 
) DATA 
) DATA 
) DATA 
) DATA 
) DATA 
) DATA 
) DATA 
) DATA 
} DATA 
3 DATA 
3 DATA 
3 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 
0 DATA 


FO,E9,1 
FC,FC,I 
FC, FC,1 
FC, 7C, 1 
FC,D6,: 
FC, fc,: 
FC,FC,: 
E4,30, 
30,64,' 
CC,CC, 
30,30, 
30,30, 
FF,FF, 
BA,30, 
30,FF, 
FF,FF, 
FF,BA, 
75,FF, 
FF,FF, 
CO,D5, 
EA,CO, 
CO,CO, 
FF,FF, 
75,FF, 
FF,FF, 
FF,30, 
30,75, 
FF,FF, 
30,30, 


FC,FC,< 
03,03 , ( 
FC,69 , ( 
FC,D6,: 
3C,3C,: 
FC,E9 , ( 
FC,30,: 
30,CC, I 
CC,CC, 

98.30, 

30.30, 
75,BA, 
,30,30, 
,30,75, 

, FF,FF, 

, FF,30, 
r 75,FF, 

, FF,FF, 
-FF,FF, 

, EA,CO , 
,C0,C0, 
, CO,D5, 
,75,FF, 
,FF,FF, 
, FF,BA, 
,30,FF, 
, FF,FF, 
, BA,30, 
,30,30, 


03,03, 
03,El, 
C3,D6, 
3C,3C, 
3C,E9, 
C3,92, 
30,CC, 
CC,FO, 

98.30, 

30.30, 
64,98, 
30,30, 
30,75, 
FF,FF, 
FF,30, 

,75,FF 
, FF,FF 
, FF,BA 
, EA,CO 
,C0,C0 
, CO,D5 
, FF,FF 
, FF,FF 
, FF,BA 
,30,FF 
, FF,FF 
, B A, 3 0 
,30,30 
, 75,BA 


,03,El, 
,C3,D6, 
, FC,FC, 
,3C,FC, 
, C3,9 2 , 
,FC,FC, 
,D8,FO, 
,CC,30, 
,30,64, 
,CC,CC, 
,30,30, 
,30,30, 
i ,FF,FF, 
',BA,30, 
i,30,FF 
’,FF,FF 
’,FF,BA 
i, FF, FF 
>,C0,C0 
) ,CO,B5 
>,EA,CO 
i ’,FF,FF 
•■, FF,BA 
L,75, FF 

PjFFjFF 

P,FF,30 
), 30,75 
3,FF,FF 
1,30,30 


,1211 

,1147 

,1774 

,1274 

,1220 

,1834 

,1512 

,1224 

,904 

:,1H2 

i,540 

1.591 
‘,1281 
1,1143 
',1419 
',1695 

k, 1764 
',1833 

l, 1830 
>,1620 
),1641 
i 1 ,1809 
1,1833 
■■,1695 
•■,1764 
3,1419 
5,1074 
?, 1350 

3.591 


CO,CO,' 
C0,C0,' 
00,40, 
80,00, 
00 , 00 , 
00,40, 
80,00, 
00 , 00 , 
00,40, 
80,00, 
00 , 00 , 
00,40, 
80,00, 
00 , 00 , 
00,40, 
80,00, 
00 , 00 , 
CO,CO, 
00 , 11 , 
00 , 00 , 


CO,CO,' 
CO,CO, 
80,00, 
00 , 00 , 
00,40, 
80,00, 
00 , 00 , 
00,40, 
80,00, 
00 , 00 , 
00,40, 
80,00, 
00 , 00 , 
,00,40, 
,80,00, 
, 00 , 00 , 
,00,40, 
,CO,CO, 
, 00 , 22 , 
,51,00, 


CO,CO, 
80,00 
00,00 
00,40 
80,00 
00,00 
00,40 
80,00 
00,00 
00,40 
80,00 
00,00 
00,40 
80,00 
00,00 
00,40 
CO, CO 
CO,CO 
00,00 
, 11,00 


,C0,C0, 
, 00 , 00 , 
,00,40, 
,80,00, 
, 00 , 00 , 
,00,40, 
,80,00, 
, 00 ,. 00 , 
,00,40, 
,80,00, 
, 00 , 00 , 
,00,40, 
,80,00, 
1 , 00 , 00 , 
,00,40, 
,80,00, 
,CO,CO, 
,CO,CO, 
,00,A2, 
,A2,11, 


51.11, 
51,00, 
00 , 00 , 
00 , 11 , 
B3,7 3, 
22,51, 
00,B3, 
B3,7 3, 
22 , 22 , 
51,00, 
33,33, 
00 , 00 , 
22 , 00 , 
22 , 00 , 

11 . 11 , 
00,F3, 
33,33, 
7 3,A2, 
F3,33, 
00, A2 
11,73 
B3,22 
22,11 
11,73 
B3,22 
00,11 

11.73 
B3,3 3 
11,11 

33.73 

51.33 

33.33 
73,00 


00,51, 
00 , 11 , 
00,A2, 
73,B3, 
22 , 22 , 
00,11 , 
B3,73, 
22 , 00 , 
00 , 11 , 
33,33, 
00 , 11 , 
00 , 00 , 
. 00 , 22 , 
, 00 , 00 , 
, 11 , 00 , 
-F3,F3, 
-73,00, 
-51,33, 
- 22 , 00 , 
,33,73. 
, B3,22 
,51,00 
,11,73 
, B3,22 
, 11,00 
-11,73 
, B3,22 
, 00,00 
,11,73 
, F3,33 
,33,33 
,7 3,A2 
,00,F3 


,51,00, 
, 22 , 00 , 
,33,33, 
, 22 , 00 , 
,22,11, 
, B3,7 3 , 
,2 2,A2, 
,22,11, 
,7 3,B3, 
,51,00, 
,00,51, 
1,51,00, 
l,A2,00, 
1,00,00, 
),A2,00, 
i,F3,00, 
), 51,B3, 
>,33,33, 
), 33,F3, 
5, B3,73 , 
2,00,00. 
3,11,73 
3,B3,22 
2,00 , A2 
3,11,73 
3 , B3,22 
2 , 00,00 
0,11,73 
3,B3,33 
3,00,00 
3,33 , A2 
2,00 , B3 
3,F3,F3 


,00,00, 
,33,33, 
,00,A2, 
,A2,11, 
, B3,73 , 
,22,00, 
,11,11, 
,B3,7 3, 
,22,00, 
,00,00, 
,00,00, 
i,00,A2, 
1,00, A2, 
1,00,51, 
>,00,00, 
),00,B3, 
>,33,33, 
!,33,A2, 
i,B3,33. 
3,00,00 
),33,73 
3,B3,2 2 
2,00,00 

2 , B3,7 3 

3 , B3,7 3 
2,00,A2 
0 , B3,73 
3 , B3,2 2 
3,51,00 
0,33,F3 
2,51,B3 
3,33,33 
3 , F3,00 


,260 
,234 
,426 
,524 
,707 
,460 
,703 
,673 
,413 
,264 
,200 
,243 
:, 39 2 
.,115 
>,213 
1,1151 
>,579 
>,724 
3,852 
>,622 
>,511 

2.639 
3,396 
3,801 
3,656 
2,524 

3.639 
2,575 
0,477 
3,754 
3,707 
3,660 
0,1087 


Lislmg PIPFUNE LD? 


LiSting PIPELINE LD2 


10 DIM name$(5),hsc!(5) _ 

20 FOR i=l TO 5:nameS(i)= SOFTICE 
30 hsc!(i)= 60000 - 10000 *i 
40 NEXT i 

50 OPENOUT"pipeline.sco 
60 FOR i=l TO 5:PRINT#9,name$(l) 
70 PRINT#9,hsc!(i):NEXT 
80 CLOSEOUT:END 

L-sImg PIPELINE SCM 


[2196] 
[2206] 
[1313] 
[1552] 
[1677] 
[909] 
[1213] 
[1693] 
[1114] 
[1480] 
[1575] 
[1007] 
[1242] 
[1044] 
[1085] 
[1584] 
[1617] 
[1291 ] 
[1571] 
[1050] 
[1731] 
[1070] 
[1406] 
[1351] 
[1082] 
[1533] 
[1590] 
[1908] 
[1422] 
[909] 
[909] 
[1482] 
[1253] 
[1378] 
[1561] 
[1610] 
[1378] 
[1561] 
[1610] 
[1378] 
[1561] 
[1610] 
[1378] 
[1561] 
[1610] 
[1378] 
[15611 
[1037 J 
[1482] 
[1152] 
[885] 
[109] 
[1066] 
[1165] 
[1544] 
[1339] 
[1551] 
[ 1222 ] 
[1873] 
[1244] 
[1675] 
[1229] 
[1307] 
[1559] 
[1589] 
[1341] 
[1719] 
[1084] 
[1598] 
[1965] 
[1460] 
[1972] 
[1481] 
[1927] 
[1911] 
[1425] 
[1099] 
[1336] 
[1249] 
[1597] 
[1425] 
[1280] 
[1495] 
[1518] 
[ 1021 ] 


[1031] 
0" [2864] 
[1077] 
[375] 
[1997] 
[1358] 
[2016] 
[1352] 
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Daten hin, Daten her - 
MAXI-Datenverwaltung, 
bitte sehr 

Verwalten Sie Ihre Daten mit dem 
CPC 

Datenverwaltung ist nicht jedermanns Sache, weil die entsprechenden Pro¬ 
gramme nur zu oft sehr schwer zu bedienen sind. Das hier vorgestellte Pro¬ 
gramm ist da anders - es verwaltet Daten nicht nur komfortabel, sondern 
ist auch kinderleicht zu bedienen. 


So können Sie beispielsweise eine Zeit¬ 
schriftensammlung verwalten, sich mit 
der Archivierung von Schallplatten be¬ 
fassen oder aber Kochrezepte geordnet 
ablegen — Ihren Ideen für die Verwen¬ 
dungsmöglichkeiten des Programms 
sind aufgrund seiner Einfachheit kei¬ 
nerlei Grenzen gesetzt. Nach dem Star¬ 
ten des Programms MDV.BAS er¬ 
scheint ein übersichtliches Hauptmenü 
auf dem Bildschirm, das Ihnen folgen¬ 
de Menüoptionen bietet: 

1. Eingabe 

Hinter dieser Option verbirgt sich ein 
Untermenü mit zwei Wahlmöglich¬ 
keiten: 

1. Alle vorherigen Daten löschen 


2. Sofort neue Daten eingeben 
Wählen Sie Option 1, werden alle vor¬ 
her eingegebenen Daten gelöscht, und 
es erscheint wieder das Hauptmenü. 
Mit Option 2 wird die Eingabe an der 
Stelle fortgesetzt, an der sie vorher 
beendet wurde. 

Die Eingabe von Daten verläuft folgen¬ 
dermaßen: Sie haben eine Überschrift 
und zehn Zeilen zu je dreißig Zeichen 
für die Eingabe zur Verfügung. Wird 
die maximale Anzahl der Zeichen 
überschritten, muß die Eingabe wie¬ 
derholt werden. Nach der Eingabe ei¬ 
nes Datenblockes werden Sie gefragt, 
ob alle Eingaben richtig sind. Ist das 
nicht der Fall, geben Sie “N“ für 


“Nein“ ein und danach, welche Zeile 
korrigiert werden soll. 

Überschrift: Ü, Zeilen 1 bis 9: Ziffer 1 
bis 9, Zeile 10: Z. 

Haben Sie “J“ für “Ja“ gewählt, müs¬ 
sen Sie auch angeben, ob Sie noch 
mehr Daten eingeben möchten. Pro 
Datei sind maximal 100 Datenblöckc 
möglich. 

2. Ausgabe 

Nach Anwahl dieses Menüpunkts ge¬ 
langen Sie in ein Untermenü und kön¬ 
nen dort die Ausgabe auf den Bild¬ 
schirm oder auf den Drucker festlegen. 
Haben Sic den Drucker gewählt, so ha¬ 
ben Sie dann noch die Wahl zwischen 
NLQ- und Draft-Ausdruck (Schön- 
und Schnellschrift). 

3. Daten suchen 

Bei diesem Menüpunkt wird zunächst 
abgefragt, ob man nur die Daten im 
Speicher durchsuchen will. Beantwor¬ 
ten Sie diese Frage mit “J“, muß nur 
noch der Begriff, nach dem gesucht 
werden soll, eingegeben werden. Das 
Programm sucht dann nach einer Va¬ 
riable, in der dieser Begriff vorkommt. 
Wird etwas gefunden, müssen Sie an¬ 
geben, ob der gefundene Eintrag aus¬ 
gedruckt werden soll. Wenn ja, dann 
muß wie bei Menüpunkt Ausgabe vor¬ 
gegangen werden. Es folgt die Frage, 
ob Sie den Rechner weitersuchen las¬ 
sen wollen. 
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Möchten Sie auch andere Dateien 
durchsuchen, geben Sie “N“ und die 
Anzahl der zu durchsuchenden Dateien 
(maximal 64!) nebst jeweiligem Datei¬ 
namen ein. Dann verfahren Sie bitte 
wie oben beschrieben. Nach der 
Durchsuchung der Daten im Speicher 
werden die Dateien auf der Disket¬ 
te/Kassette durchsucht. Vor dem Be¬ 
ginn einer Datei wartet das Programm 
auf einen Tastendruck. 

4. Daten abspeichern 

Dieser Punkt dient zum Abspeichern 
der Daten, die sich im Arbeitsspeicher 
befinden. Nach der Eingabe des Datei¬ 
namens, der nicht länger als acht Zei¬ 
chen sein darf und der immer die Ex¬ 
tension “.DAT“ besitzt, beginnt das 
Programm mit dem Speichern. Unten 
links läuft die Nummer des Daten¬ 
blocks, der gerade gespeichert wird, 
mit. Gibt man statt des Dateinamens 
nichts ein, kommt man sofort ins 
Hauptmenü zurück. 

5. Daten laden 

Dieser Menüpunkt ist wie Daten ab¬ 
speichern aufgebaut, nur daß die Daten 
nicht auf Festplatte abgespeichert, son¬ 
dern in den Arbeitsspeicher geladen 
werden. Achtung: Alle Daten, die sich 
vor dem Ladevorgang im Arbeitsspei¬ 
cher befanden, werden gelöscht! 

6. Daten korrigieren 

Die im Speicher befindlichen Daten 
werden der Reihe nach aufgelistet, und 
nach jedem Block erscheint die Frage, 
ob die Daten korrigiert werden sollen. 
Der Korrekturvorgang verläuft wie 
schon bei Menüpunkt “1. Eingabe“ be¬ 
schrieben. 

7. Disk-Inhalt ansehen 

Nach An wählen dieses Punktes werden 
Sie gefragt, ob Sie nur die Dateien mit 
der Extension “.DAT“ sehen möchten. 
Wenn ja, listet MDV nur die Dateien 
mit den Endungen “.DAT“ auf. an¬ 
dernfalls wird das ganze Inhaltsver¬ 
zeichnis gezeigt. 


8. Ende 

Nach einer Sicherheitsabfrage wird das 
Programm beendet. Die cingegebenen 
Daten bleiben erhalten. Mil dem Be¬ 
fehl GOTO 250 gelangen Sie ohne Da¬ 
tenverlust ins Hauptmenü zurück, mit 
RUN wird das Programm neu gestar¬ 
tet. 

Im BASIC-Quellcode können dann 
auch Änderungen (zum Beispiel im 


Programm, Änderung der User-Num¬ 
mer. Wechsel des Laufwerks etc.) vor¬ 
genommen werden. 

Was sonst noch zu beachten wäre: 


a) Beim Ausdrucken von mehr als vier 
Datenblöcken empfiehlt sich die Benut¬ 
zung von Endlospapier! 

b) Die Eingabe von Anführungszei¬ 
chen (“...“) ist nicht zu empfehlen! 

c) Das Programm verfügt über einen 
deutschen Zeichensatz: Ä/ä: Taste 
< 17> , Ü/ü: < 19> , Ö/ö: <22>,ß: 
<24> oder <Control > + <2> 
Wie Sie feststellen werden, ist die 


MAXI-Datenverwaltung universell 
einsetzbar und bietet jedem etwas. Wir 
wünschen viel Spaß. 

(Jan Dohm/tk) 
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Hl 


10 '*** MAXI Datenverwaltung 

[1419] 

20 '*** Jahn Dohm 

[786] 

30 ' 

[117] 

40 MODE 1:INK 0,0:INK 1,26:INK 2,19:INK 3, 

[3741] 

9:BORDER 0:schluss=l 


50 DIM suchdatS(64),titel$(100),a$(100),b$ 

[4837] 

( 100 ),c$( 100 ),d$( 100 ),e$(100),f$(100),g$(l 


00 ),h$(100),1$(100),j$(100) 


60 SYMBOL AFTER 90 

[1214] 
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70 SYMBOL 123,204,0,120,12,124,204,118,0 [3281] 

:REM ae 

80 SYMBOL 91,102,24,60,102,126,102,102,0 [2484] 

:REM AE 

90 SYMBOL 125,0,102,0,102,102,102,62,0 [2659] 

:REM ue 

100 SYMBOL 93,102,0,102,102,102,102,60,0 [2689] 

:REM UE 

110 SYMBOL 124,102,0,60,102,102,102,60,0 [2714] 

:REM oe 

120 SYMBOL 126,0,60,102,108,102,102,108,96 [2582] 
:REM sz 

130 SYMBOL 255,126,129,189,137,145,189,129 [3605] 
,126:REM SZ 

140 KEY DEF 17,1,123,91,0 :REM ae [948] 

Listing MDV.BAS 
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150 KEY DEF 19,1,125,93/0 :REM ue 
160 KEY DEF 22,1,124,92,0 :REM oe 
170 KEY DEF 24,1,126,94,0 :REM SZ 
180 SYMBOL 92,198,56,108,198,198,108,56,0 
:REM OE 

190 PAPER 0:' **************************** 
****** Beginn 

200 PEN l:CLS:ORIGIN 0,0:PLOT 0,0,1:DRAW 0 
,399:DRAW 639,399:DRAW 639,0:DRAW 0,0:PLOT 
0,50:DRAW 639,50:PLOT 0,351:DRAW 639,351: 
LOCATE 10,2:PRINT" MAXI-DATENVERWALTUNG" 
210 WINDOW 2,39,5,21:PAPER 3:CLS:WINDOW #1 
,2,38,24,24:PAPER #1,0:CLS #1 
220 LOCATE 5,2:PRINT"1. Eingabe" 

230 LOCATE 5,4:PRINT"2. Ausgabe" 

240 LOCATE 5,6:PRINT"3. Daten suchen" 

250 LOCATE 5,8:PRINT"4. Daten abspeichern 


260 LOCATE 5,10:PRINT"5. 
270 LOCATE 5,12:PRINT"6. 
n" 

280 LOCATE 5,14:PRINT"7. 
hen" 

290 LOCATE 5,16:PRINT"8. 
300 PRINT #1," Ihre Wahl: 


Daten laden" 
Daten korrigiere 


Disk-Inhalt anse [3840] 


[2011 ] 
[ 1993] 
[1851] 
[2698] 

[2515] 

[9810] 


[5222] 

[1059] 

[2381] 

[2362] 

[3338] 

[2775] 

[ 2220 ] 


Ende" 

";CHR$(143) 


[1713] 

[2138] 


PRINT 

#1," 

Ihre 

Wahl: 

" [3884] 

PRINT 

#1," 

Ihre 

Wahl: 

" [2107] 

PRINT 

#1," 

Ihre 

Wahl: 

" [4103] 

PRINT 

#1," 

Ihre 

Wahl: 

" [3971] 

PRINT 

#1," 

Ihre 

Wahl: 

" [2718] 

PRINT 

#1," 

Ihre 

Wahl: 

" [3378] 

PRINT 

#1," 

Ihre 

Wahl: 

" [4012] 

PRINT 

#1," 

Ihre 

Wahl: 

" [3379] 

');" FALSCHE EINGABE!!" 

; [5080] 


[332] 
[925] 
[332 ] 
[7519] 


310 W$=INKEY$:IF w$="" THEN 310 
320 IF w$="l" THEt 
;w$:CLS:GOTO 410 
330 IF w$="2" THE! 

;w$:CLS:GOTO 910 
340 IF w$="3" THE1 
;w$:CLS:GOTO 1180 
350 IF w$="4" THE! 

;w$:CLS:GOTO 1450 
360 IF W$="5" THEI 
;w$:CLS:GOTO 1520 
370 IF w$="6" THEt 
;w$:CLS:GOTO 1610 
380 IF w$="7" THEt 
;w$:CLS:GOTO 1740 
390 IF W$="8" THEt 
;w$:CLS:GOTO 1840 


(7);CHR$(7);:CLS #l:GOTO 300 
410 '*********** 

420 ' EINGABE 

430 '***********. 

440 PRINT:PRINT:PRINT:PRINT" 1. Alle vorh 
erigen Daten 1|sehen":PRINT:PRINT:PRINT" 

2. Sofort neue Daten eingeben" 

450 PRINT #1," Ihre Wahl: ";CHR$(143) [2138] 

460 w$=INKEY$:IF w$="" THEN 460 [1923] 

470 IF w$="l" THEN FOR 1=1 TO schluss:tite [10615] 
1$(1)="":a$(1)="":b$(1)="":c$(1)="":d$(1)= 

"":e$(1)="":f$(1)="":g$(l)="":h$(1)="":i$( 

1) = "":jS(1) = "":NEXT 1:schluss=l:GOTO 500 
480 IF w$="2" THEN 500 [1088] 

490 PRINT #1,CHR$(7);" FALSCHE EINGABE!!"; [5053] 
CHR$(7);:FOR t=l TO 250:NEXT:PRINT #1,CHRS 
(7);CHR$(7);:CLS #l::GOTO 450 

500 ' Eingabe [925] 

510 p$=STRING$(30,"."):FOR mdv=schluss TO [3801] 
100 

520 PEN 2:CLS:CLS #1:WINDOW 1,40,1,24:LOCA [3493] 
TE 6,7:PRINT p$ 

530 FOR cpc=1 TO 10:LOCATE 6,cpc+9:PRINT p [3366] 

$:NEXT cpc 

540 PEN 1:WINDOW #2,6,36,7,7:PAPER #2,3:LI [3786] 
NE INPUT #2,"",titel$(mdv) 

550 IF LEN(titel$(mdv))>30 THEN PAPER #2,3 [5897] 

:CLS #2:PRINT #2,p$:GOTO 540 

560 FOR cpc=l TO 10:WINDOW #2,6,36,cpc+9,c [2736] 
pc+9 

570 ON cpc GOSUB 650,660,670,680,690,700,7 [2311] 
10,720,730,740 

580 NEXT cpc [534] 

590 PRINT #1," Alle Eingaben richtig? (j/n [3730] 
)" 

600 W$=INKEY$:IF W$="" THEN 600 ELSE IF UP [7696] 
PER$(w$)="J" THEN 610 ELSE IF UPPER$(w$)=» 

N" THEN GOTO 750 ELSE PRINT #1,CHR$(7);:GO 
TO 590 

610 PRINT #1," Noch weiter Eingaben? (j/n [2635] 
)" 

620 w$=INKEYS:IF w$="" THEN 620 ELSE IF UP [8795] 
PER$(W$)="J" THEN 630 ELSE IF UPPERS(w$)=" 

N" THEN schluss=mdv+l:GOTO 210 ELSE PRINT 
#1,CHRS(7);:GOTO 610 

630 WINDOW 2,39,5,21:PAPER 3 [2087] 

640 NEXT mdv:schluss=100:GOTO 210 [1954] 

650 LINE INPUT #2,"",a$(mdv):IF LEN(a$(mdv [5745] 

))>30 THEN CLS #2:PRINT #2,p$:GOTO 650 ELS 
E RETURN 


660 LINE INPUT #2,"",b$(mdv):IF LEN(b$(mdv [5484] 
))>30 THEN CLS #2:PRINT #2,p$:GOTO 660 ELS 
E RETURN 

670 LINE INPUT #2,"",c$(mdv):IF LEN(c$(mdv [6614] 
))>30 THEN CLS #2:PRINT #2,p$:GOTO 670 ELS 
E RETURN 

680 LINE INPUT #2,"",d$(mdv):IF LEN(d$(mdv [3871] 
))>30 THEN CLS #2:PRINT #2,p$:GOTO 680 ELS 
E RETURN 

690 LINE INPUT #2,"",e$(mdv):IF LEN(e$(mdv [5574] 
))>30 THEN CLS #2:PRINT #2,p$:GOTO 690 ELS 
E RETURN 

700 LINE INPUT #2,"",f$(mdv):IF LEN(f$(mdv [6769] 
))>30 THEN CLS #2:PRINT #2,pS:GOTO 700 ELS 
E RETURN 

710 LINE INPUT #2,"",g$(mdv):IF LEN(g$(mdv [4376] 
))>30 THEN CLS #2:PRINT #2,p$:GOTO 710 ELS 
E RETURN 

720 LINE INPUT #2,"",h$(mdv):IF LEN(h$(mdv [4149] 
))>30 THEN CLS #2:PRINT #2,p$:GOTO 720 ELS 
E RETURN 

730 LINE INPUT #2,"",i$(mdv):IF LEN(i$(mdv [6891] 
))>30 THEN CLS #2:PRINT #2,p$:GOTO 730 ELS 
E RETURN 

740 LINE INPUT #2,"",j$(mdv):IF LEN(j$(mdv [6354] 
))>30 THEN CLS #2:PRINT #2,p$:GOTO 740 ELS 
E RETURN 

750 'Falsche Eingabe ... [1784] 

760 LOCATE 2,7:PRINT" ]":FOR cpc=l TO 9:LO [5326] 
CATE 2,cpc+9:PRINT cpc:NEXT cpc:LOCATE 2,1 
9:PRINT" Z" 

770 PRINT #1," Welche Eingabe korrigieren? [3561] 

780 w$=INKEY$:IF w$="" THEN 780 [1875] 

790 IF w$="]" THEN WINDOW #2,6,36,7,7:LINE [9546] 
INPUT #2,"",titelS(mdv):IF LEN(titelS(mdv 
))>30 THEN PAPER #2,3:CLS #2:PRINT #2,p$:G 
OTO 790 ELSE IF lsmf=799 THEN 1680 ELSE 59 
0 

800 IF w$="l" THEN WINDOW #2,6,36,10,10:CL [3447] 

S #2:GOSUB 650:IF lsmf=799 THEN 1680 ELSE 

590 

810 IF W$="2" THEN WINDOW #2,6,36,11,11:CL [4382] 

S #2:GOSUB 660:IF lsmf=799 THEN 1680 ELSE 

590 

820 IF w$ = "3" THEN WINDOW #2,6,36,12,12:CL [4651] 

S #2:GOSUB 670:IF lsmf=799 THEN 1680 ELSE 

590 

830 IF w$ = "4" THEN WINDOW #2,6,36,13,13:CL [3645] 

S #2:GOSUB 680:IF lsmf=799 THEN 1680 ELSE 

590 

840 IF W$="5" THEN WINDOW #2,6,36,14,14:CL [2433] 

S #2:GOSUB 690:IF lsmf=799 THEN 1680 ELSE 

590 

850 IF w$="6" THEN WINDOW #2,6,36,15,15:CL [4230] 

S #2:GOSUB 700:IF lsmf=799 THEN 1680 ELSE 

590 

860 IF w$="7" THEN WINDOW #2,6,36,16,16:CL [4355] 

S #2:GOSUB 710:IF lsmf=799 THEN 1680 ELSE 

590 

870 IF w$="8" THEN WINDOW #2,6,36,17,17:CL [4379] 

S #2:GOSUB 720:IF lsmf=799 THEN 1680 ELSE 

590 

880 IF W$="9" THEN WINDOW #2,6,36,18,18:CL [5504] 

S #2:GOSUB 730:IF lsmf=799 THEN 1680 ELSE 

590 

890 IF UPPERS(w$)="Z" THEN WINDOW #2,6,36, [6696] 
19,19:CLS #2:GOSUB 740:IF lsmf=799 THEN 16 
80 ELSE 590 


900 PRINT #1,CHR$(7);:GOTO 770 [1527] 

910 '*********** [332] 

920 ' AUSGABE [572] 

930 ************ [332] 

940 CLS:PRINT:PRINT:PRINT:PRINT" 1. Bild [6716] 

schirm":PRINT:PRINT:PRINT" 2. Drucker" 

950 PRINT #1," Ihre Wahl: ";CHR$(143) [2138] 

960 w$=INKEY$:IF w$="" THEN 960 [1935] 

970 IF w$="l" THEN ausgabe=l:GOTO 1000 [1295] 

980 IF w$="2" THEN ausgabe=2:GOTO 1000 [1680] 

990 PRINT #1,CHR$(7);:GOTO 950 [1476] 

1000 ' Ausgabe [572] 

1010 CLS:CLS #1:IF ausgabe=2 THEN PRINT #1 [4866] 
,"Drucker bereitmachen-Taste...":CALL &BB0 
6:CLS #1:GOTO 1070 

1020 FOR mdv=l TO Schluss [1871] 


1030 PEN 1:CLS #1:WINDOW 1,40,1,24:LOCATE [13920] 
6,7:PRINT titel$(mdv):LOCATE 6,10:PRINT a$ 

(mdv):LOCATE 6,11:PRINT b$(mdv):LOCATE 6,1 
2:PRINT c$(mdv):LOCATE 6,13:PRINT d$(mdv): 

LOCATE 6,14:PRINT e$(mdv):LOCATE 6,15:PRIN 
T f$(mdv):LOCATE 6,16:PRINT g$(mdv) 

1040 LOCATE 6,17:PRINT h$(mdv):LOCATE 6,18 [3758] 

: PRINT i$ (mdv) .-LOCATE 6,19:PRINT j$(mdv) 


Listing MDV.BAS 


Listing MDV.BAS 
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1050 WINDOW 2,39,5,21:PAPER 3:PRINT #1," [4308] 

Taste...":CALL &BB06:CLS 
1060 NEXT rndv:GOTO 210 [563] 

1070 'Drucker-Ausgabe [2464] 

1080 CLS:PRINT:PRINT:PRINT:PRINT" 1. NLQ [5552] 

- Druck":PRINT:PRINT:PRINT" 2. Draft - 
Druck" 

1090 PRINT # 1 ," Ihre Wahl: ";CHR$(143) [2138] 

1100 w$=INKEY$:IF w$="" THEN 1100 [2002] 

1110 IF W$="l" OR w$="2" THEN 1130 [1427] 

1120 PRINT #1,CHR$(7);:GOTO 1090 [1632] 

1130 PRINT#8,CHR$(27);"R";CHR$(2);:IF w$=" [6209] 

1 " THEN PRINT #8,CHR$(27);"x";CHR$(1) ELSE 
PRINT #8,CHR$(27);"x";CHR$(0) 

1140 CLS:INK 1,26,0:PRINT"BITTE WARTEN!":I [4564] 

NK 2,0,26:PRINT"BITTE WARTEN!":FOR mdv=l T 
O Schluss 

1150 PRINT #8,CHR$(27);"E";:PRINT # 8 ,CHR$( [6450] 
27);"G":PRINT # 8 ,titelS(mdv):PRINT # 8 ,CHR$ 

(27);"F":PRINT #8,CHR$(27);"H" 

1160 PRINT # 8 ,a$(mdv):PRINT # 8 ,b$(mdv):PRI [9539] 

NT # 8 ,c$(mdv):PRINT # 8 ,d$(mdv):PRINT # 8 ,e$ 

(mdv):PRINT # 8 ,f$(mdv):PRINT # 8 ,g$(mdv):PR 
INT # 8 ,h$(mdv):PRINT # 8 ,i$(mdv):PRINT # 8,3 
$(mdv) 

1170 CLS #1:NEXT mdv:CLS:INK 1,26:INK 2,19 [2597] 
:GOTO 210 

1180 '**************** [528] 

1190 ' DATEN SUCHEN [1848] 

1200 '**************** [528] 

1210 GOSUB 2160:'(Nachtrag 2) [1796] 

1220 CLS:CLS # 1 :PRINT"Wort/Satz,das/der ge [12303] 
sucht werden soll:":LINE INPUT"",suchS:IF 
LEN(such$)>30 THEN PRINT # 1 ,CHR$(7);CHR$(7 
);"Nicht mehr als 30 Buchstaben 1";CHR$(7); 

:FOR t=l TO 250:NEXT t:PRINT CHR$(7):GOTO 
1220 

1230 PEN 2 :PRINT # 1 ,suchS [1115] 

1240 CLS:WINDOW 1,40,1,24:FOR mdv=l TO sch [2792] 
luss 

1250 IF INSTR(UPPERS(titelS(mdv)),UPPERS(s [3809] 
UCh$))<>0 THEN 1380 

1260 IF INSTR(UPPER$(a$(mdv)),UPPERS(suchS [3436] 

))<>0 THEN 1380 

1270 IF INSTR(UPPERS(b$(mdv)),UPPERS(such$ [2360] 
))<>0 THEN 1380 

1280 IF INSTR(UPPERS(c$(mdv)),UPPERS(suchS [1888] 

))<>0 THEN 1380 

1290 IF INSTR(UPPERS(d$(mdv)),UPPER$(suchS [2510] 

))<>0 THEN 1380 

1300 IF INSTR(UPPER$(eS(mdv)),UPPERS(suchS [2553] 

))<>0 THEN 1380 

1310 IF INSTR(UPPERS(f $(mdv)),UPPERS(suchS [3463] 

))<>0 THEN 1380 

1320 IF INSTR(UPPERS(g$(mdv)),UPPERS(suchS [2239] 

))<>0 THEN 1380 

1330 IF INSTR(UPPERS(h$(mdv)),UPPERS(suchS [1721] 

))<>0 THEN 1380 

1340 IF INSTR(UPPER$(iS(mdv)),UPPERS(suchS [2501] 

))<>0 THEN 1380 

1350 IF INSTR(UPPERS(jS(mdv)),UPPERS(suchS [3815] 

))<>0 THEN 1380 

1360 NEXT mdv [543] 

1370 PEN 1:CLS #1:IF ndsisbdd=0 THEN 2310 [3610] 

ELSE 210 

1380 ' GEFUNDEN! [1257] 

1390 WINDOW 2,39,5,21:PAPER 3:CLS:WINDOW 1 [16460] 
,40,1,24:LOCATE 6 ,7:PRINT titelS(mdv):LOCA 
TE 6 , 10 :PRINT a$(mdv):LOCATE 6 , 11 :PRINT b$ 

(mdv):LOCATE 6 ,12:PRINT c$(mdv):LOCATE 6,1 
3:PRINT dS(mdv):LOCATE 6,14:PRINT e$(mdv): 

LOCATE 6,15:PRINT f$(mdv):LOCATE 6,16 
1400 PRINT g$(mdv):LOCATE 6,17:PRINT h$(md [4008] 
v):LOCATE 6,18:PRINT i$(mdv):LOCATE 6,19:P 
RINT j$(mdv) 

1410 GOSUB 1940:'(Nachtrag 1) [1635] 

1420 CLS # 1 :PRINT # 1 ,"Weitersuchen? (j/n) [2959] 

II 

1430 W$=INKEY$:IF W$="" THEN 1430 ELSE IF [5537] 
UPPERS(wS)="N" THEN 1370 ELSE IF UPPER$(w$ 

)="J" THEN 1360 _ 

1440 PRINT #1,CHR$(7);:GOTO 1410 [1632] 

1450 '********************* [557] 

1460 ' DATEN ABSPEICHERN [1712] 

1470 '********************* [657] 

1480 CLS:CLS #1:PRINT -#1," DATEN ABSPE [11252] 

ICHERN":LOCATE 2,5:PRINT"Dateiname: . 

..";:PEN 2:PRINT".DAT":LOCATE 13,5:PEN 1:1 
NPUT"",d$:IF LEN(d $)>8 THEN 1480 
1490 IF d$="" THEN 210 [65] 

1500 OPENOUT d$+".DAT":CLS:PRINT" DATEI: " [2620] 
;d$+".DAT" 
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1510 FOR mdv=l TO Schluss:CLS #1:PRINT #1, [10844] 
mdv:WRITE #9,titelS(mdv),a$(mdv),b$(mdv),c 
$(mdv),d$(mdv),e$(mdv),f$(mdv),g$(mdv),h$( 
mdv),i$(mdv),jS(mdv):NEXT mdv:CLOSEOUT:GOT 

1520 '*************** [345] 

1530 ' üa'TEN LADEN [1528] 

1540 '*************** [345] 

1550 CLS:CLS #1:PRINT #1," DATEN LADEN [9324] 

":LOCATE 2,5:PRlNT"Dateiname: .";:P 

EN 2 :PRINT" .DAT"-.LOCATE 13,5:PEN 1: INPUT"" 

,d$:IF LEN(d$)>8 THEN 1550 

1560 IF dS="" THEN 210 [65] 

1570 FOR 1=1 TO schluss:titel$(l)="":a$(l) [7054] 

="":b$(1)="":c$(l)="":d$(l)="":e$(l)="":f$ 

(1)="":g$(1)="":h$(1)="":iS(1)="":jS(1)="" 

:NEXT l:schluss=0 

1580 OPENIN d$+".DAT":CLS:PRINT" DATEI: "? [2237] 
dS+".DAT" 

1590 r=0:WHILE NOT EOF:r=r+l:CLS #1:PRINT [6007] 
#l,r:INPUT #9,titelS(r),a$(r),b$(r),c$(r), 
d$(r),e$(r),f$(r),g$(r),hS(r),i$(r),]$(r) 

1600 WEND:schluss=r:CLOSEIN:GOTO 210 [3236] 

1610 '********************* [657] 

1620 ' DATEN KORRIGIEREN [1219] 

1630 '********************* [657] 

1640 FOR mdv=l TO Schluss [1871] 

1650 CLS:PEN 1:CLS #1:WINDOW 1,40,1,24:LOC [15615] 

ATE 6,7:PRINT titelS(mdv):LOCATE 6,10:PRIN 
T a$ (mdv)-.LOCATE 6,11:PRINT b$ (mdv) :LOCATE 
6,12:PRINT cS(mdv):LOCATE 6,13:PRINT d$(m 
dv :LOCATE 6,14:PRINT e$(mdv):LOCATE 6,15: 

PRINT fS(mdv):LOCATE 6,16:PRINT g$(mdv) 

1660 LOCATE 6,17:PRINT h$(mdv):LOCATE 6,18 
:PRINT i$(mdv):LOCATE 6,19:PRINT jS(mdv) 

1670 'WINDOW 2,39,5,21:PAPER 3 
1680 PRINT #1,"KORRIGIEREN? (j/n)" 

1690 w$=INKEY$:IF w$="" THEN 1690 
1700 IF UPPERS (w$ )="J" THEN lsmf=799 -.GOTO 
750 

1710 IF UPPERS(w$)="N" THEN 1730 
1720 PRINT #1,CHR$(7):GOTO 1680 
1730 WINDOW 2,39,5,21:CLS:NEXT mdv:PEN 1:G 
OTO 210 

1740 '*********************** 

1750 ' DISK-INHALT ANSEHEN 
1760 '*********************** 

1770 CLS:CLS #l:PRINT"Nur die Dateien mit 
der Extension":PRINT"'.DAT' auflisten? (j/ 
n)" 

1780 w$=INKEY$:IF w$= M " THEN 1780 
1790 IF UPPERS(W$)="J" THEN 1820 
1800 IF UPPERS(w$)="N" THEN 1830 
1810 PRINT CHR$(7):GOTO 1770 
1820 CLS:ext$ = "*.DAT":IDIR,@ext$:PRINT #1, 

"Taste! " :CALL ScBB06:GOTO 210 
1830 MODE 2:PAPER 0:CAT:LOCATE 1,24:PRINT" 

Taste!":CALL &BB06:MODE l:GOTO 190 
1840 '******** 

1850 ' ENDE 
1860 '******** 

1870 CLS:CLS #1:PRINT"WIRKLICH? (]/n)" 

1880 w$=INKEYS:IF w$="" THEN 1880 
1890 IF UPPERS(w$)="J" THEN 1920 
1900 IF UPPERS(W$)="N" THEN 210 
1910 PRINT CHR$(7):GOTO 1870 
1920 MODE 1:PAPER 0:PRINT"M A X I - D A T 
ENVERWALTUN G":PRINT"von Jan Doh 
m 1990":PRINT" Tiergartenstr 

a~e 15":PRINT" 5560 Wittlich":PRINT:PRI 
NT:PRINT 

1930 PRINT"Neustart mit 'RUN'. ":PRINT"For 
tsetztung mit 'GOTO 250'":PRINT:PRINT"Weit 
erhin viel Spa- mit":PRINT"M A X I - D A T 
ENVERWALTUN G":PRINT:PRINT"J.D. 

":PRINT:END 
1940 'Nachtrag 1 
1950 ' 

1960 'Zur Suchroutine: 

1970 'Ausdruck des gefundenen Datensatzes 
1980 CLS #1:PRINT #1,"Datensatz ausdrucken 
? (j/n) " 

1990 xm$=INKEY$:IF xm$="" THEN 1990 
2000 IF UPPERS(xm$)="N" THEN RETURN 
2010 IF UPPERS(xm$)="J" THEN 2030 
2020 PRINT # 1, CHR$ (7 )," CHRS ( 7 )," :GOTO 1940 
2030 ' Drucken ... 

2040 CLS #1 

2050 PRINT #1,"NLQ-Qualit{t? (]/n) " 

2060 xm$=INKEY$:IF xm$="" THEN 2060 
2070 IF UPPERS(xm$)="N" THEN nlq=0:GOTO 21 
00 


Listing MDV.BAS 


[3758] 

[1058] 

[1707] 

[ 2012 ] 

[2388] 

[1455] 

[1124] 

[3075] 

[577] 

[1514] 

[577] 

[6002] 


[2090] 

[1748] 

[1346] 

[1822] 

[3869] 

[3529] 

[278] 

[715] 

[278] 

[1751] 

[1943] 

[1760] 

[1418] 

[1890] 

[11699] 


[13624] 


[56] 

[117] 

[1097] 

[1832] 

[3147] 

[1680] 

[1782] 

[1241] 

[ 2121 ] 

[1727] 

[ 373] 

[1172] 

[1562] 

[1781] 
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2080 IF UPPERS(xm$)="J" THEN nlq=l:GOTO 21 
00 

2090 PRINT #1,CHR$(7);CHR$(7);:GOTO 2040 
2100 ' Jetzt Drucken ... ! 

2110 GLS #1:PRINT #1,"Drucker bereitmachen 
-Taste!":CALL &BB18:PRINT #8,CHR${27);"R"; 
CHR$(2);:IF nlq=l THEN PRINT #8,CHR$(27);" 
X";CHR$(1) ELSE PRINT #8,CHR$(27);"x";CHR$ 
(0) 

2120 CLS #1:PRINT #1,"BITTE WARTEN!" 

2130 PRINT #8,CHR$(27);"E";:PRINT #8,CHR$( 
27);"G":PRINT #8,titel$(mdv):PRINT #8,CHR$ 
(27);"F":PRINT #8,CHR$(27);"H" 

2140 PRINT #8,a$(mdv):PRINT #8,b$(mdv):PRI 
NT #8,c$(mdv):PRINT #8,d$(mdv):PRINT #8,e$ 
(mdv):PRINT #8,f$(mdv):PRINT #8,g$(mdv):PR 
INT #8,h$(mdv):PRINT #8,i$(mdv):PRINT #8,j 
$(mdv) 

2150 CLS #1:SOUND 1,65,300:RETURN 

2160 'Nachtrag 2 

2170 'Zur Suchroutine: 

2180 CLS:CLS #1:PRINT:PRINT"Nur die sich i 
m Speicher befindliche Datei durchsuchen? 
(j/n) " 

2190 xm$=INKEY$:IF xm$="" THEN 2190 

2200 IF UPPERS(xm$)="N" THEN ndsisbdd=0:GO 

TO 2230 

2210 IF UPPERS(xm$)="J" THEN ndsisbdd=l:RE 
TURN 

2220 PRINT CHR$(7):PRINT CHR$(7):GOTO 2160 
2230 CLS:PRlNT"Anzahl der zu durchsuchende 
n Dateien:":INPUT"",adzdd:IF adzdd>64 OR a 
dzdd<l THEN PRINT:PRINT"Jaja, nur nicht au 
fregen!":PRINT"In f}nf Minuten ist alles v 
orbei ...":FOR t=l TO 3800:NEXT t:GOTO 223 
0 

2240 CLS:PRINT #1,"Anzahl der Dateien: ";a 
dzdd 

2250 FOR ytyty=l TO adzdd 

2260 CLS:LOCATE 1,5:PRINT"Name der ";ytyty 

". Datei: .";:PEN 2 :PRINT" .DAT" :PEN 

1:IF ytyty<10 THEN LOCATE 22,5:INPUT"",SU 
chdatS(ytyty) ELSE LOCATE 23,5:INPUT"",suc 
hdat$(ytyty) 

2270 IF LEN(suchdatS(ytyty))>8 THEN PRINT: 
PRINT CHR$(7);"Nur 8 Zeichen!":FOR t=l TO 
2000:NEXT t:GOTO 2260 

2280 IF suchdatS(ytyty)="" THEN PRINT:PRIN 
T CHRS(7);"?????????????":FOR t=l TO 2000: 
NEXT t:GOTO 2260 
2290 NEXT ytyty 
2300 RETURN 

2310 WINDOW 2,39,5,21:PAPER 3:CLS:CLS #1 
2320 FOR trtr=l TO adzdd 

2330 CLS #1:PRINT #1,"Taste f}r ";suchdatS 
(trtr):CALL &BB18:CLS #1:PRINT #1,suchdatS 
(trtr) 

2340 OPENIN suchdatS(trtr)+".DAT" 

2350 r=0:WHILE NOT EOF:r=r+l:CLS #1:PRINT 
#l,r:INPUT #9,titelS,a$,b$,c$,d$,e$,f$,g$, 
h$,i$, j$ 

2360 IF INSTR(UPPER$(titelS),UPPERS(such$) 
)<>0 THEN 2490 

2370 IF INSTR(UPPERS(a$),UPPERS(such$))<>0 
THEN 2490 


[2261] 

[1144] 

[9960] 


[2024] 

[6450] 


[9539] 


[1279] 

[51] 

[1097] 

[7779] 


[1528] 

[1972] 

[1420] 

[2499] 

[14733] 


[2069] 

[1928] 

[12232] 


[7727] 


[6235] 


[1059] 

[555] 

[2756] 

[1275] 

[6182] 


[2281] 
[4349 ] 


[2913] 

[1550] 


2380 IF INSTR(UPPER$(b$),UPPERS(such$))<>0 [2185] 
THEN 2490 

2390 IF INSTR(UPPERS(c$),UPPERS(such$))<>0 [3175] 
THEN 2490 J 

2400 IF INSTR(UPPERS(c$),UPPERS(SUCh$))<>0 [3175] 
THEN 2490 

2410 IF INSTR(UPPER$(d$),UPPERS(suchS))<>0 [2060] 
THEN 2490 

2420 IF INSTR(UPPERS(e$),UPPERS(such $))<>0 [2787] 
THEN 2490 

2430 IF INSTR(UPPERS(f$),UPPERS(suchS))<>0 [2160] 

THEN 2490 

2440 IF INSTR(UPPER$(g$),UPPERS(SUCh$))<>0 [2304] 
THEN 2490 

2450 IF INSTR(UPPERS(h$),UPPERS(SUCh$))<>0 [1687] 
THEN 2490 

2460 IF INSTR(UPPERS(iS),UPPERS(suchS))<>0 [2265] 
THEN 2490 

2470 IF INSTR(UPPERS(jS),UPPERS(such$))<>0 [2175] 
THEN 2490 

2480 WEND:CLOSEIN:NEXT trtr:GOTO 210 [2246] 

2490 ' GEFUNDEN! [1257] 

2500 WINDOW 2,39,5,21:PAPER 3:CLS:WINDOW 1 [18696 
,40,1,24 .-LOCATE 6,7:PRINT titelS :LOCATE 6, 

10:PRINT a$:LOCATE 6,11:PRINT b$:LOCATE 6, 

12:PRINT c$:LOCATE 6,13:PRINT d$:LOCATE 6, 

14:PRINT e$:LOCATE 6,15:PRINT f$:LOCATE 6, 

16:PRINT g$:LOCATE 6,17:PRINT h$:LOCATE 6, 

18 

2510 PRINT i$:LOCATE 6,19:PRINT j$:GOSUB 2 [2587] 
540 1 J 

2520 CLS #1:PRINT #1,"Weitersuchen? (j/n) [2959] 

2530 W$=INKEY$:IF W$="" THEN 2530 ELSE IF [6638] 
UPPERS(W$)="N" THEN CLOSEIN:GOTO 210 ELSE 
IF UPPERS(W$)="J" THEN 2480 ELSE PRINT #1, 

CHRS(7);:GOTO 2520 

2540 CLS #1:PRINT #1,"Datensatz ausdrucken [3147] 
? (j/n) " 

2550 xm$=INKEY$:IF xm$="" THEN 2550 [1616] 

2560 IF UPPERS(xm$)="N" THEN RETURN [1782] 

2570 IF UPPERS(xm$)="J" THEN 2590 [1217] 

2580 PRINT #1,CHR$(7);CHR$(7);:GOTO 2540 [2273] 

2590 CLS #1:PRINT #1,"NLQ-Qualit{t? (j/n) [1959] 


2590 CLS #1:PRINT 


="" THEN 2550 [1616] 
t" THEN RETURN [1782 ] 
" THEN 2590 [1217] 
CHR$(7);:GOTO 2540 [2273] 
NLQ-Qualit[t? (j/n) [1959] 


2600 xm$=INKEY$:IF xm$="" THEN 2600 
2610 IF UPPERS(xm$)="N" THEN nlq=0:GOTO 26 
• 40 

2620 IF UPPERS(xm$)="J" THEN nlq=l:GOTO 26 
40 

2630 PRINT #1,CHR$(7);CHRS(7);:GOTO 2590 
2640 CLS #1:PRINT #1,"Drucker bereitmachen 
-Taste!":CALL &BB18:PRINT #8,CHRS(27);"R"; 
CHR$(2);:IF nlq=l THEN PRINT #8,CHR$(27);" 
x";CHR$(1) ELSE PRINT #8,CHRS(27);"x";CHR$ 
(0) 

2650 CLS #1:PRINT #1,"BITTE WARTEN!" 

2660 PRINT #8,CHR$(27);"E"; .-PRINT #8,CHR$( 
27);"G":PRINT #8,titelS:PRINT #8,CHR$(27); 
"F":PRINT #8,CHRS ( 21 ); "H" 

2670 PRINT #8,aS:PRINT #8,b$:PRINT #8,c$:P 
RINT #8,d$:PRINT #8,e$:PRINT #8,f$:PRINT # 
8,gS:PRINT #8,h$:PRINT #8,i$:PRINT #8,j$ 
2680 CLS #1:SOUND 1,65,300:RETURN 


[1662] 

[1593] 

[2145] 

[2271] 

[9960] 


[2024] 

[5066] 


[8219] 


[1279] 


Listing MDV.BAS 


Listing MDV.BAS 


Zwei Themen - ein Ereignis: 


Hobbu-tronic & 


14. Ausstellung für Funk- 
und Hobby-Elektronik 

Die umfassende Marktübersicht für Hobby-Elektroniker 
und für Computeranwender in Hobby, 
Beruf und Ausbildung. 
Actions-Cenfer mit Experimenten, Demonstrationen 

und vielen Tips. 
Sonderschauen: „Straße aer 

_ Computer-Clubs", 

- ~ - „Historische Bürowelt- 

= r~ ~ — — Technik von 1885 - 1950". 



Wfestfalenhallen 

Dortmund 


7. Ausstellung für Computer, 
Software und Zubehör 

8. -12. MAI '91 

täglich 9-18 Uhr 

Stark verbilligte Sonderrückfahrkarten an allen 
Bahnhöfen der DB - Mindestentfernung 51 km 
außerhalb VRR - plus Eintrittsermäßigung. 


Alessezentrum Mfestfalenhallen Dortmund 
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Bonus¬ 

programm: 

CPC-Koppelei 

Das Spiel TETRIS 
für vier Personen 
- und zwei CPCs 

Das Spiel TETRIS ist ein echter 
Evergreen, denn es läuft in 
zigfachen Versionen auf den 
verschiedensten Rechnern. Für die 
CPCs stellen wir Ihnen diesmal eine 
grafisch gelungene Version namens 
POWER TETRIS vor, die es wirk¬ 
lich in sich hat - denn vier Spieler 
können gleichzeitig (!) spielen, 
indem zwei CPCs miteinander 
gekoppelt werden. 


Natürlich macht das Spiel auch jede 
Menge Spaß, wenn man es “nur“ mit 
zwei Spielern auf einem CPC spielt. 
Sofern Sie jedoch über zwei CPCs ver¬ 
fügen und mit vier Personen gleichzei¬ 
tig spielen wollen, müssen Sie die bei¬ 
den Rechner über die Drucker-Ports 
entsprechend dem Schaltplan in Bild 3 
koppeln. Dabei ist beispielsweise bei 
der Kopplung eines 464 und eines 6128 
auf die lediglich optisch unterschiedli¬ 
chen Anschlüsse zu achten. Das Spiel 
läuft übrigens auf allen CPC-Mo- 
dellen. 

Programmbeschreibung 

Nachdem Sie das Spiel mit RUN “PT 
gestartet und sich für Grün- oder Farb¬ 
monitor entschieden haben, erscheint 
das erste Menü, in dem Sie die Anzahl 
der Spieler bestimmen können. 

Haben Sie einen oder zwei Spieler an¬ 
gewählt, so gelangen Sie sofort ins 
Hauptmenü. Bei drei Spielern gelangen 
Sie, sofern Sie zwei CPCs gekoppelt 
haben, zuvor noch in ein Linkmenü, bei 


dem Sie zwischen CPC#1 und 
CPC #2 wählen können. POWER TE¬ 
TRIS muß (!) bei drei oder vier Spie¬ 
lern auf zwei gekoppelten CPCs gestar¬ 
tet werden. Im Linkmenü müssen Sie 
nun die Nummer des CPCs festlegen: 
Bei dem einen CPC muß dies CPC # 1 
und beim anderen CPC #2 sein. Wer¬ 
den zwei gleiche Nummern ausge¬ 
wählt, so führt das früher oder später 
zu Abstürzen der Computer. Wenn Sie 
vier Spieler auswählen, müssen Sie zu¬ 
sätzlich noch den Spielmodus festlegen. 
Im Multiplayer-Modus spielt jeder ge¬ 
gen jeden, im Team-Modus spielen 
Spieler eins und zwei (CPC # 1) gegen 
Spieler drei und vier (CPC #2). Bei 
drei Spielern kann nur im Multiplayer- 
Modus gespielt werden. 

Die Menüs und auch das Spiel können 
mit der ESC-Taste abgebrochen wer¬ 
den. So gelangen Sie beispielsweise 
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durch <ESC> vom Hauptmenü zu¬ 
rück ins Titelmenü. 

Das Hauptnienü 

START GAME: startet das Spiel. 
TURNING: legt die Drehrichtung der 
Spielsteine (links/rechts) fest. 

LEVEL: Unter diesem Menü können 
Sie die Level-Nummer und somit die 
Geschwindigkeit voreinsteilen. Im 
Spiel können Sie maximal Level neun 
erreichen, ln diesem Menü läßt sich als 
höchster Level sieben einstellen. 
HIGHSCORES: Hier können Sie sich 
mit Joystick auf/ab die vierzig Plätze 
umfassende Highscore-Tabelle an¬ 
schauen, die nach jedem Neueintrag 
abgespeichert wird. 

Das Spiel 

Das Ziel des Spieles ist es, die herabfal¬ 
lenden Klötzchen möglichst lückenlos 
zu stapeln. Wenn man eine horizontale 
Reihe komplett gefüllt hat, verschwin¬ 
det sic. Die Klötzchen lassen sich mit¬ 
tels Druck auf den Feuerknopf drehen 
und mit Joystick beschleunigt nach un¬ 
ten ziehen. Für abgebaute Zeilen und 
vorzeitiges Herunlerziehen des Steines 
gibt es Punkte. Nach einer bestimmten 
Anzahl von abgebauten Zeilen erhöht 
sich die Level-Nummer. 

Das Ziel im ersten Spielermodus be¬ 
steht darin, möglichst viele Punkte zu 
erreichen. In den nachfolgenden Modi 
Spielen Sie gegen einen oder mehrere 
Gegner. Das besondere daran ist, daß 
Sie im wahrsten Sinne des Wortes gegen 
Ihre(n) Gegner spielen. Bauen Sie 
mehr als eine Reihe ab (also zwei bis 
vier Reihen), so bekommt Ihr Gegner 
entsprechend eine bis drei Reihe(n) 
dazu. 

Die neuen Reihen erscheinen in der un¬ 
tersten Zeile; der Turm Ihres Spielpart¬ 


ners wird also praktisch nach oben ge¬ 
schoben. Die neuen Reihen bilden al¬ 
lerdings einen Spalt, so daß sie sich mit 
den entsprechenden Klötzchen leicht 
wieder abbauen lassen, sofern man sie 
freigelegt hat. Im Multiplayer-Modus 
(drei oder vier Spieler) kann jeder über 
die Tasten eins bis vier den Spieler aus¬ 
wählen, dem er seine abgebauten Rei¬ 
hen “zuschicfeen“ möchte. 

Wenn man mit vier Personen spielt, 
macht allerdings der Team-Modus am 
meisten Spaß. 

Zu den Listings 

POWER TETRIS wird mit dem Pro¬ 
gramm PT.BAS gestartet. Die Pro¬ 
gramme DATA 1.BAS und DATA2.BAS 
sind Datalader und erzeugen den (ge¬ 


packten) Maschinencode. Das Pro¬ 
gramm DATA3.BAS ist ebenfalls ein 
Dataladcr und erzeugt das Maschinen¬ 
programm TRANSMC.BIN. das zur 
Datenübertragung über den Drucker- 
Port notwendig ist. TABMAKE.BAS 
erzeugt eine leere Highscore-Tabelle 
namens SCORES.BIN. Mit SCO- 
MERGE.BAS lassen sich zwei High- 
score-Tabellen mischen, so daß Sie 
auch die Scores anderer POWER-TE- 
TRIS-Spieler in Ihrer Tabelle aufneh¬ 
men können. POWER TETRIS ist lei¬ 
der so lang, daß ein Abdruck im Heft 
nicht möglich war. Wir haben POWER 
TETRIS daher als Bonusprogramm auf 
die DATA BOX zu dieser Ausgabe ge¬ 


packt. 


(Andreas Stroiczek/tk) 


Verbindung der Druckerschnittstellen 
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Pin 2 = Write 
Pin 11 = Read 
Pin 9 = Masse 

Bild 3: Schaltplanfilr ein Kabel — so koppeln Sie die Druckerschnittstellen 
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Check your 
papers 

Verwalten Sie 
Ihre Wertpapiere 
mit dem CPC 


Ja, ja, das liebe Geld kann nicht nur Wohlstand 
und ruhige Nerven bringen (wenn man’s hat), 
sondern auch jede Menge Arbeit. Sofern Sie Ihr 
Geld in Wertpapieren, also Aktien, Options¬ 
scheinen und dergleichen mehr, angelegt haben, 
wäre es doch ganz schön, die Übersicht behalten 
zu können, ohne viel Zeit zu benötigen. 


Wertpapiere gibt es in verschiedensten 
Arten, seien es die erwähnten Aktien, 
Optionsscheine oder aber festverzinsli¬ 
che Renten und/oder Investmentfonds 
- alle können mit dem Programm DE¬ 
POT übersichtlich verwaltet werden. 
Der Autor des Programms ist im übri¬ 
gen gelernter Bankkaufmann. 

DEPOT berechnet automatisch die je¬ 
weiligen Durchschnittskaufpreise ein¬ 
schließlich Gebühren und vergleicht 
sie mit dem aktuellen Börsenkurs, den 
Sie täglich aktualisieren können. Es er¬ 
rechnet dann den Gewinn beziehungs¬ 
weise Verlust in DM und Prozent, so 
daß Sie jederzeit informiert sind, wann 
beispielsweise Ihr persönliches “Ge¬ 
winnziel“ erreicht ist. Zu jedem Wert¬ 
papier können Sie Ihr Kursziel einge¬ 
ben. Außerdem haben Sie eine Über¬ 
sicht, wann Ihre Wertpapiergewinne 
steuerfrei sind, indem Sie beim Kauf 
eines Papiers das Datum eingeben. 

Wertpapiergewinne müssen gemäß der 
Spekulationssteuer versteuert werden, 
wenn die Papiere innerhalb von sechs 


Monaten ge- und wieder verkauft wer¬ 
den und dieser Gewinn 1000,— DM 
übersteigt. Gewinne und Verluste, die in 
diesem Zeitraum entstehen, können al¬ 
lerdings am Ende eines Jahres miteinan¬ 
der verrechnet werden (bis 0.00 DM). 

Weiterhin haben Sie die Möglichkeit, 
beim Kauf eines Wertpapiers dessen 
Beleihungssatz einzugeben und über 
den Menüpunkt Beleihungswerte Ihr 
Gesamtdepot und alle Beleihungswerte 
anzeigen und/oder ausdrucken zu 
lassen. 

Wertpapiere verwalten macht 
Spaß — mit DEPOT 

Der Beleihungssatz ist der Prozentsatz, 
mit dem ein Wertpapier bei einem Kre¬ 
ditinstitut zur Kreditsicherung “belie- 
hen“ wird. Dieser Menüpunkt ist also 
besonders für all diejenigen wichtig, 
die ihre Wertpapiere über einen soge¬ 
nannten Effekten-Lombard-Kredit kau¬ 
fen. Diese Gruppe stellt heutzutage den 


größten Teil der Wertpapierkäufer dar. 
Mit dem Menüpunkl Beleihungswerte 
haben Sie also jederzeit Ihre aktuelle 
Kreditlinie im Blick und können so 
weitere Dispositionen treffen. 

Standardbeleihungssätze bei Kreditin¬ 
stituten sind für 

— inländische Aktien 60 % 

— inländischen Renten (fest¬ 
verzinsliche Wertpapiere) 80 % 

— inländische Options¬ 
scheine zirka 50 % 

— gedeckte Optionsscheinen 
(covered Warrants) 30 bis 40 % 

— Investmentfonds (Aktien) 60 % 

— Investmentfonds (Renten) 80 % 

Diese Sätze schwanken allerdings bei 
den verschiedenen Banken. Für den ge¬ 
nauen Beleihungssatz eines Werlpa¬ 
piers fragen Sie am besten Ihren Wert¬ 
papierberater! 

Da das Sparbuch in der heutigen Zeit 
immer mehr an Bedeutung verliert und 
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die Wertpapierkäufe verstärkt zuneh¬ 
men, ist es wichtig, daß man seine Be¬ 
stände genau im Auge behält. Dies 
wird durch diese Depotverwaltung op¬ 
timal erreicht. Der Autor setzt das Pro¬ 
gramm selbst auch seit langem ein und 
hat es “auf Herz und Nieren“ geprüft. 
Es wurde auf einem Schneider CPC 
464 entworfen und läuft auch auf den 
beiden größeren Rechnern, da es aus¬ 
schließlich in BASIC geschrieben wur¬ 
de. Man kann auch alle Depotangaben 
unter Verwendung eines Nadel¬ 
druckers ausdrucken — der Autor ver¬ 
wendet einen DMP 2000. 

Das Programm wird mit RUN “DE¬ 
POT“ gestartet und bietet eine über¬ 
sichtliche Menüstruktur. 

Laden der Depotdaten 

Das Gesamtdepot wird automatisch un¬ 
ter dem Namen “depot.dat” cinge- 
laden. 

Speichern der Depotdaten 

Das Gesamtdepot wird unter dem Na¬ 
men DEPOT.DAT abgespeichert, die 
vorherige Datei erhält somit den Na¬ 
men DEPOT. B AK. 

Eingabe Kauf 

Nach Eingabe des Wertpapiernamens 
(maximal 14 Zeichen) wird gefragt, ob 
es sich um ein Investment handelt oder 
nicht. Da Investmentanteile immer mit 
drei Nachkommastellen ausgewiesen 
werden, ist dies von Bedeutung. Bei In¬ 


vestmentanteilen wird kein “Steuer¬ 
freitermin“ abgefragt. 

Ansonsten geben Sie genau sechs Mo¬ 
nate nach Kaufdatum ein (TTMMJJ), 
also zum Beispiel 060990. Weitere 
Eingaben: Beleihungssatz, Stückzahl, 
Kurs aktuell (also den Kurs am Kauf¬ 
tag), Ihr Kursziel (kann auch über¬ 
sprungen werden) und den Kurswert 
inklusive Gebühren (also den Betrag, 
den Sie effektiv bezahlen). 

Der Rechner teilt jetzt diesen Betrag 
durch die Stückzahl, so daß Sie auf Ih¬ 
ren tatsächlichen Kaufkurs kommen, 
der — bedingt durch die Gebühren — 
natürlich höher liegt als der aktuelle 


Die wichtigsten Variablen 

aktie$ 

= Name des Wertpapiers 

stk 

= Stückzahl 

st frei 

=Datum, wann steuerfrei 
(TTMMJJ) 

kaufp 

= Kaufpreis 

kurs 

= Kurs aktuell 

ziel 

= Kursziel 

kurswert 

= Kurswert 

abrechn 

= Betrag laut Kaufabrech¬ 
nung 

gew 

= Gcwinn/Verlust in DM 

gewpro 

= Gewinn/Verlust in % 

durchschnitt 

= Durchschnittskurs 
bei Nachkäufen 

bei 

= Beleihungssatz 

invest 

= Investment fond? 


Kurs. Somit wissen Sie auch genau, 
wann sich für Sie der Verkauf lohnt. 
Wenn Sie Rentenwerte kaufen, müssen 
Sie als Kurs den Kurs/100 eingeben, 
also beispielsweise bei 99 % “0.99“. 

Eingabe Verkauf 

Hier müssen Sie die genaue Werlpa¬ 
pierbezeichnung eingeben (da im Pro¬ 
gramm ein String verglichen wird), da¬ 
nach die Stückzahl, Ihren Gutschrifts¬ 
betrag und den aktuellen Verkaufs¬ 
kurs. Der Computer errechnet Ihren 
Gewinn oder Verlust. 

Daten aktualisieren 

Das gesamte Depot wird durchlaufen, 
Sie können die aktuellen Kurse und Un¬ 
persönliches Kursziel einsetzen (än¬ 
dern). 

Depotanzeige und Depotausdruck 

Hier können Sie sich Ihre Depots je¬ 
weils anzeigen oder ausdrucken lassen. 

Beleihungswerte 

Der letzte Menüpunkt zeigt Ihnen Ihre 
Depots nebst Beleihungswerten an und 
druckt sie auf Wunsch auch aus. 

Mit DEPOT dürfte einer übersichtli¬ 
chen, schnellen und vor allem gründli¬ 
chen Verwaltung Ihrer Wertpapiere 
nichts mehr im Wege stehen. Natürlich 
sollten Sie nur seriöse Wertpapiere 
kaufen. Ihr Wertpapierberater bei Ihrer 
Hausbank hilft Ihnen dabei sicher 
weiter. 

(Christian Mallek/tk) 



für 464-664-6128 


□ 


10 ' 

20 ' DEPOTVERWALTUNG 
30 ' 

40 ' (c) 1990 Christian Mallek 
Listing: DEPOTVERWALTUNG 


[117] 

[1130] 

[117] 

[1037] 


50 ' 

60 ' 

70 OPENOUT"dummyMEMORY HIMEM-1:CLOSEOUT 
80 DIM aktie$(100) 

90 DIM stk(100) 

100 DIM stfrei(100) 

110 DIM kaufp(100) 

120 DIM kurs(100) 

130 DIM ziel(100) 

140 DIM kurswert(100) 

Listing: DEPOTVERWALTUNG 


[117] 

[117] 

[2303] 

[1071] 

[603] 

[330] 

[1146] 

[1180] 

[1035] 

[1219] 
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[—Programm 


150 DIM abrechn(100) 

160 DIM gew(100) 

170 DIM gewpro(lOO) 

180 DIM durchschnitt(100) 

190 DIM bei(100) 

200 DIM invest(ioo) 

210 MODE 1:INK 0,26:INK 1,0:BORDER 26 
220 WINDOW#l,1,80,3,25 

230 a$ = "D EPOTVERWAL T _U_N_G|| 

250 LOCATE (40-LEN(a$))/2,2:PRINT a$ 

260 LOCATE (40-LEN(b$))/2,3:PRINT b$ 

270 MOVE 50,390:DRAW 50,20:DRAW 600,20 
280 MOVE 70,80:DRAW 100,100:DRAW 110,70:DR 
AW 160,120:DRAW 200,180:DRAW 260,250:DRAW 
300,200:DRAW 400,275:DRAW 450,260:DRAW 520 
,320:DRAW 580,360 
290 CALL &BB06 

300 MODE 2:INK 0,1:INK l,24:BORDER 10 
310 LOCATE 27,1:PRINT CHR$(24);" AUSWAHLME 
NU DEPOT ";CHR$(24); 

320 PRINT"- 


[1214] 

770 

[886] 



[901] 


780 

[1766] 



[598] 


790 

[844] 


800 

[1536] 


n ? 

[972] 


810 

[1098] 


g 

[1659] 


820 

[2306] 


830 

[2394] 


840 

[2531] 


850 

[8326] 


860 



V E 



870 


[393] 

[2527] 

[2372] 

[4661] 


27,5:PRINT"-1- Laden der Depotd 

27,7:PRINT"-2- Speichern der De 

27,9:PRINT"-3- Eingabe: KAUF" 

27,11:PRINT"-4- Eingabe: VERKAU 


27,13:PRINT"-5- Daten aktualisi [3300] 


27,15:PRlNT"-6- Depotanzeige" 

27,17:PRINT"-7- Depotausdruck" 
27,19:PRINT"-8- Beleihungswerte 


330 LOCATE 
aten" 

340 LOCATE 
potdaten" 

350 LOCATE 
360 LOCATE 
F" 

370 LOCATE 
eren" 

380 LOCATE 
390 LOCATE 
400 LOCATE 

tl 

410 z$=INKEY$:IF z$="" THEN 410 

420 IF Z$="l" OR z$="2" OR z$="3" OR Z$ = "4 

" OR z$="5" OR z$="6" OR z$="7" OR z$="8" 

THEN 430 ELSE GOTO 410 

430 Z=VAL(Z$) 

440 ON Z GOTO 450,550,640,840,1390,1570,16 
00,2620 

450 ' LADEN . 

460 CLS:LOCATE 27,10:PRINT"Depot wird gela 
den .." 

470 a=0:OPENIN "depotl.dat" 

480 WHILE NOT EOF 
490 a=a+l 

500 LINE INPUT #9,aktie$(a) 

510 INPUT #9,stfrei(a),stk(a),kaufp(a),kur 
s(a),ziel(a),kurswert(a),gew(a),gewpro(a), 
abrechn(a),durchschnitt(a),bel(a),invest(a 
) 

520 WEND:CLOSEIN 
530 GOSUB 1960 
540 GOTO 300 
550 ' SPEICHERN 

560 CLS:LOCATE 27,10:PRINT"Depot wird gesp 
eichert .." 

570 OPENOUT "depotl.dat" 

580 FOR i=l TO a 
590 PRINT#9,aktie$(i) 

600 PRINT#9,stfrei(i),stk(i),kaufp(i),kurs 

(i),ziel(i),kurswert(i),gew(i),gewpro(i),a 

brechn(i),durchschnitt(i),bei(l),invest(l) 

610 NEXT i 

620 CLOSEOUT 

630 GOTO 300 

640 ' EINGABE‘.KAUF 

650 CLS:a=a+l:frage=0 

660 LOCATE 27,1:PRINT CHR$(24);" Eingabe: 
KAUF ";CHR$(24); 

670 PRINT"- 


[3393] 

[3427] 

[2156] 

[2699] 


[3581] 

[1996] 

[2236] 

[572] 

[4416] 


[622] 

[2246] 

[384] 

[2472] 

[2007] 

[1840] 

[725] 

[1589] 

[8249] 


[1209] 

[851] 

[504] 

[428] 

[3118] 

[1649] 

[421] 

[1140] 

[7539] 


[375] 

[902] 

[504] 

[1065] 

[1087] 

[3102] 

[4661] 


680 LOCATE 2,4:INPUT"Investment ? (l=ja - [5152] 

0 =nein) invest(a) 

690 IF invest(a)<0 OR invest(a)>l THEN 680 [1551] 
700 LOCATE 2,5:INPUT"Wertpapiername: (max. [3253] 
14) ";aktie$(a) 

710 IF LEN(aktie$(a))>14 THEN LOCATE 2,5:P [6713] 
RINT" n 

;:GOTO 700 

720 IF invest(a)=0 THEN LOCATE 2,7:INPUT"s [4558] 
teuerfrei am : ";stfrei(a) 

730 LOCATE 2,9:INPUT"Beleihungssatz: [4286] 

" ;bel'(a) 

740 LOCATE 2,11:INPUT"Stueckzahl : [2960] 

H • ^ Q J 

750 LOCATE 2,13:PRINT"- Kaufpreis pro Akti [6777] 
e incl. Gebuehren wird automatisch berechn 
et -" 

760 LOCATE 2,15:INPUT"Kurs aktuell : [3242] 

";kurs(a) 

Listing: DEPOTVERWALTUNG 


?E 2,17:INPUT"Kursziel 
";ziel(a) 


";abrechn(a) 


)TO 300 'Menu 
Eingabe: VERKAUF 


'schon Vorhände 


[3395] 

[5081] 

[978] 

[3773] 


'Berechnun [2758] 

[1465] 

[628] 

[1486] 

[91] 

Eingabe: [3931] 


880 LOCATE 2,5:INPUT"Wertpapiername: 

";aktiev$ 

890 LOCATE 2,7:INPUT"Stueckzahl: 

";stkv 

900 LOCATE 2,9:PRINT"- Verkaufserloes pro 
Aktie abzuegl. Gebuehren wird automatisch 
berechnet -" 

910 LOCATE 2,11:INPUT"Gutschrift lt. Abrec 
hnung: ";gut 

920 LOCATE 2,13:INPUT"Kurs lt. Abrechnung: 

";kursab 

930 aktiev$=UPPER$(aktievS) 

940 i=0 

950 FOR i=l TO a 

960 IF aktiev$=aktie$(i) THEN 990 
970 NEXT 

980 CLS#l:LOCATE 27,10:PRINT"Kein Bestand 

vorhanden !!":CALL &BB06:GOTO 300 

990 IF stkv>stk(i) THEN CLS:LOCATE 20,10:P 

RINT"Soviele Wertpapiere sind nicht im Bes 

tand !!":CALL &BB06:GOTO 300 

1000 kursv=gut/stkv 

1010 kurs(i)=kursab 

1020 gewinn=(kursv-kaufp(i))*stkv 

1030 gewinnpro=((kursv-kaufp(i))*100)/kauf 

p(i) 

1040 stk(i)=stk(i)-st.kv 

1050 durchschnitt(i)=durchschnitt(i)-gut+g 
ewinn 

1060 IF stk(i)>0 THEN kaufp(i)=durchschnit 
t(i)/stk(i) 

1070 kurswert(i)=kurs(i)*stk(i) 

1080 tl=stk(i)*kaufp(i) 

1090 t2=stk(i)*kurs(i) 

1100 gew(i)=t2-tl 
1110 t3=kurs(i)-kaufp(i) 

1120 gewpro(i)=(t3*100)/kaufp(i) 

1130 IF gewinn<0 THEN antwort$=" 

ELSE antwort$=" Gewinn " 

1140 LOCATE 2,18:PRINT"Kaufkurs: ";USING"# 
####.##";kaufp(i) 

1150 LOCATE 25,18:PRlNT"Verkaufskurs: ";US 
ING"#####.##";kursv 

1160 LOCATE 2,20:PRINT antwort$;"= DM ";US 
ING"#####.##";gewinn 

1170 LOCATE 30,20:PRINT "=";USING"####.## 
%";gewinnpro 
1180 CALL &BB06 

1190 IF stk(i)=0 THEN GOSUB 1210 
1200 GOSUB 1960:GOTO 300 

1210 'Herausnahme des verkauften Aktienbes 
tandes 

1220 FOR ia=i+l TO a 
1230 aktie$(i)=aktie$(ia) 

1240 stk(i)=stk(ia) 

1250 stfrei(i)=stfrei(ia) 

1260 kaufp(i)=kaufp(ia) 

1270 kurs(i)=kurs(ia) 

1280 ziel(i)=ziel(ia) 

1290 kurswert(i)=kurswert(ia) 

1300 abrechn(i)=abrechn(ia) 

1310 durchschnitt(i)=durchschnitt(ia) 

1320 gew(i)=gew(ia) 

1330 gewpro( i)= gewpro(ia) 

1340 bel(i)=bel(ia) 

1350 invest(i)=invest(ia) 

1360 i=i+l:NEXT 
1370 a=a-l 
1380 RETURN 

1390 ' Daten aktuallisieren 
1400 WINDOW#l,1,80,3,25 

1410 i=0:CLS:LOCATE 27,1:PRINT CHR$(24);" 
Daten aktuallisieren ";CHR$(24); 

1420 PRINT"- 


[4661] 

[3974] 

[2564] 

[7108] 

[2926] 

[5752] 

[1767] 

[420] 

[421] 
[1511] 
[350] 
[4469] 

[6321] 


Verlust 


1430 FOR i=l TO a 

1440 LOCATE 2,5:PRINT"Wertpapiername: 

";aktie$(i) 

Listing: DEPOTVERWALTUNG 


[897] 

[1425] 

[2397] 

[2745] 

[1207] 

[1553] 

[2725] 

[2331] 

[1697] 

[1599] 

[392] 
[1052] 
[2470] 
[5264] 

[2352] 

[3106] 

[4276] 

[3279] 

[393] 
[1671] 
[1447] 
[2209] 

[853] 

[1416] 

[930] 

[1184] 

[976] 

[1380] 

[1054] 

[2199] 

[1424] 

[1260] 

[659] 

[2372] 

[480] 

[1313] 

[762] 

[721] 

[555] 

[1777] 

[972] 

[5451] 

[4661] 


[421] 

[4318] 
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1450 LOCATE 2,7:PRINT"steuerfrei am : 
";stfrei(i) 

1460 LOCATE 2,9:PRINT"Stueckzahl : 

";stk(i) 

1470 LOCATE 2 < 11:PRINT"- Kaufpreis pro Akt 
ie incl. Gebuehren wird automatisch berech 
net —" 

1480 LOCATE 2,13:PRINT"Kurs aktuell : 

";kurs(i) 

1490 LOCATE 2,15:PRINT"Kursziel : 

";ziel(i) 

1500 LOCATE 2,17:PRINT"- Kurswert excl. Ge 
b. wird automatisch berechnet 
1510 LOCATE 40,13:INPUT kurs(i) 

1520 LOCATE 40,15:INPUT ziel(i) 

1530 CLS#1 
1540 GOSUB 2370 
1550 NEXT 

1560 GOSUB 1960:GOTO 300 

1570 ' Anzeige 

1580 GOSUB 1960 

1590 GOTO 300 

1600 ' DEPOTAUSDRUCK 

1610 IF a=0 THEN CLS:INK 1,1,26:SPEED INK 
12,12:LOCATE 27,10:PRINT"Kein Depotbestand 
vorhanden !":FOR mus=600 TO 20 STEP -30:S 
OUND 1,mus,2,5:NEXT:CALL &BB06:INK 1,24:GO 
TO 300 

1620 CLS'LOCATE 10,10:INPUT"Heutiges Datum 
: ";datum$ 

1630 CLS:LOCATE 10,10:PRINT"Der Depotbesta 
nd wird ausgedruckt .." 

1640 PRINT#8,CHR$(27)+"G";"- 


[3990] 

[2989] 

[7308] 


[2217] 

[2993] 


[6997; 


[1835] 
[1304 ] 

[ 373] 

[817] 

[350] 

[1447] 

[694] 

[851] 

[504] 

[1282] 

[12116] 


[3381] 

[5752] 

[3321] 


1650 PRINT#8,"D EPOTAUSDRUCK [3910] 

per ";datum$ 

1660 PRINT#8 , "- [3411] 

-";CHR$(27)+"H"; 

1670 PRINT#8:PRINT#8 [1314] 

1680 PRINT#8," Stueck Steuer [5430] 

Kaufpreis Kurs Kurs Kurswert Ge 
w./ in %" 


1690 PRINT#8,"Wertpapier zahl frei a [7302] 
m incl.Geb. aktuell ziel excl.Geb Ve 
rl." 

1700 PR INT #8 , "- [4852] 


1710 PRINT#8 [343] 

1720 FOR i=l TO a [421] 

1730 PRINT#8,aktie$(i); [1283] 

1740 IF invest(i)=1 THEN PRINT#8,TAB(16);U [4754] 
SING"#### . ###" ;stk(i ); .-GOTO 1770 
1750 PRINT#8,TAB(16);USING"#####";stk(i); [2659] 

1760 PRINT#8,TAB(23);USING"######";stfrei( [2551] 

i); 

1770 PRINT#8,TAB(33);USING"####.##";kaufp( [2295] 

i); 

1780 PRINT#8,TAB(43);USING"####.###";kurs( [2985] 

i); 

1790 PRINT#8,TAB(52);USING"####";ziel(i); [2884] 

1800 PRINT#8,TAB(58);USING"#####.##";kurSW [2251] 
ert(i); 

1810 PRINT#8,TAB(69);USING"#####";gew(i); [1905] 

1820 PRINT#8,TAB(75);USING"###.#";gewpro(i [2849] 

1830 NEXT [350] 

1840 i=0:kurswges=0:gewges=0:gewproges=0 [1780] 
1850 FOR i=l TO a [421] 

1860 kurswges=kurswges+kurswert(i) [2513] 

1870 gewges=gewges+gew(i) [938] 

1880 gewproges=gewproges+gewpro(i) [ 2120 ] 

1890 NEXT: PRINT#8 , "- [3966] 


1900 PRINT#8,"G ESAMTBESTAND"; 
1910 PRINT#8,TAB(57);USING"######.##";kurs 
wges; 

1920 PRINT#8,TAB(68);USING"######";gewges; 
1930 PRINT#8,TAB(74);USING"####.#";gewprog 


es 


1940 PRINT#8,"============================ 



[2532] 

[2474] 

[1487] 

[2605] 

[5191] 


Listing: DEPOTVERWALTUNG 


Listing: DEPOTVERWALTUNG 


Sie haben ein Programm geschrieben ... 

... für CPC, PCWoder PC? 

Dann schicken Sie es uns! Wir suchen ständig interessante, nützliche, lustige oder spannende Program¬ 
me aller Art zur Veröffentlichung in unserer Zeitschrift gegen Honorar. 


Bitte fügen Sie Ihrem Beitrag bei: 

1. das lauffähige Programm (inklusive Source-Code) auf Datenträger (Diskette oder Kassette), 

2. eine detaillierte Programmbeschreibung als ASCII-Datei auf demselben Datenträger und als 
Ausdruck auf Papier, 

3. eine unterschriebene Erklärung, daß es sich bei dem Programm um ein selbsterstelltes Produkt 
handelt, welches frei von Rechten Dritter ist. 

Durch Einhaltung dieser drei Hinweise ermöglichen Sie uns eine schnelle Bearbeitung. 


Unsere Anschrift: DMV-Verlag 

Redaktion PC INTERNATIONAL 
Postfach 250 
3440 Eschwege 


4/5’91 PC 33 

































1950 GOTO 300 
1960 CLS:i=0 

1970 LOCATE 1,1:PRINT CHR$(24);" 

Stueck Steuer- Kaufpreis Kurs K 

urs Kurswert Gew./ in % ";CHR$(24); 

1980 LOCATE 1,2:PRINT CHR$(24);"Wertpapier 
zahl frei am incl.Geb. aktuell z 

iel excl.Geb Verl. ";CHR$(24); 

1990 IF a=0 THEN INK 1,1,26:SPEED INK 12,1 
2-LOCATE 27,10:PRINT"Kein Depotbestand vor 
handen !":FOR mus=600 TO 20 STEP -30:SOUND 
1,mus,2,5:NEXT:CALL &BB06:INK l,24:GOTO 3 
00 

2000 Z=4 

2010 FOR i=l TO a 

2020 LOCATE l,z:PRINT aktie$(l) 

2030 IF invest(i)=l THEN LOCATE 16,z:PRINT 
USING"####.###";stk(i):GOTO 2060 
2040 LOCATE 16,z:PRINT USING"#####";stk(l) 
2050 LOCATE 23; Z :PRINT USING"######"/stfre 

2060 LOCATE 33,Z:PRINT USING"####.##";kauf 

2070 LOCATE 43,z:PRINT USING"####.###";kur 
s (i.) 

2080 LOCATE 52,z:PRINT USING"####";ziel(i) 
2090 LOCATE 58,z:PRINT USING"#####•##";kur 
swert(i) 

2100 LOCATE 69,z:PRINT USING"#####";gew(i) 
2110 LOCATE 75,z:PRINT USING"###.#";gewpro 

(i) 

2120 z=z+l 

2130 IF Z=23 THEN CALL &BB06 :WINDOW#l,1, 80 
,3,25: CLS#1:z=4 
2140 NEXT 

2150 i= 0 :kurswges=o:gewges=0:gewproges=o 
2160 FOR i=l TO a 

2170 kurswges=kurswges+kurswert(i) 

2180 gewges=gewges+gew(i) 

2190 gewproges=gewproges+gewpro(i) 

2200 NEXT:LOCATE l,z:PRINT"- 


[504] 

[240] 

[6529] 


[10919] 


[355] 

[421] 

[2687] 

[4201] 

[832] 

[ 2021 ] 

[2799] 

[1924] 

[1680] 

[2775] 

[1919] 

[2771] 

[702] 

[2388] 

[350] 

[1780] 

[421] 

[2513] 

[938] 

[ 2120 ] 

[5404] 


2210 z=Z+l:LOCATE l,z:PRINT"G E S A M T B [2642] 

2220 T LOCATE 57,z:PRINT USING"######.##";ku [2308] 

2230 6 LOCATE 68,z:PRINT USING"######";gewge [2113] 

2240 LOCATE 74,z:PRINT USING"####.#";gewpr [2913] 
oges 

2250 Z=Z+1:LOCATE l,z:PRINT"============== [6128] 

2260 CALL &BB06:RETURN [1826] 

2270 ' Berechnung der fehlenden Daten nach [3601] 
Kauf-Eingabe 

2280 kaufp(a)=abrechn(a)/stk(a) [2026] 

2290 durchschnitt(a)=abrechn(a) [491] 

2300 kurswert(a)=kurs(a)*stk(a) [2453] 

2310 tl=stk(a)*kaufp(a) [1841] 

2320 t2=stk(a)*kurs(a) [1487] 

2330 gew(a)=t2-tl [493] 

2340 t3=kurs(a)-kaufp(a) [1209] 

2350 gewpro(a)=(t3*100)/kaufp(a) [1881] 

2360 RETURN [555] 

2370 ' Aktuallisierung der Daten 

2380 kurswert(i)=kurs(i)*stk(i) [2331] 

2390 tl=stk(i)*kaufp(i) [1697] 

2400 t2=stk(i)*kurs(i) [1599] 

2410 gew(i)=t2-tl [392] 

2420 t3=kurs(i)-kaufp(i) [1052] 

2430 gewpro(i)=(t3*100)/kaufp(i) [2470] 

2440 RETURN [555] 

2450 ' Abfrage, ob Wert schon vorhanden - [5200] 

Berechnung Durchschnittskurs 

2460 i=0 [420] 

2470 FOR i=l TO a-1 [335] 

2480 IF aktie$(a)=aktie$(i) THEN 2510 [855] 

2490 NEXT i [3'£] 

2500 RETURN [555] 

2510 stk(i)=stk(i)+stk(a) [1925] 

2520 kaufp(i)=(durchschnitt(i)+abrechn(a)) [3413] 
/stk(i) , 

2530 kurs(i)=kurs(a) [1659] 

2540 kurswert(i)=stk(i)*kurs( i) [3036] 

2550 ziel(i)=ziel(a) [732] 

2560 durchschnitt(i)=durchschnitt( i)+ abrec [1754] 

2570^gew(i)=(kurs(i)-kaufp(i))*stk(i) [2883] 

2580 t3=kurs(i)-kaufp(i) [1052] 

2590 gewpro(i)=(t3*100)/kaufp(i) [2470] 

2600 frage=l:a=a-l [780] 

2610 RETURN [555] 

2620 ' [117] 

2630 ' Beleihungswert [1142] 

Listing: DEPOTVERWALTUNG 


2640 ' 

2650 CLS:i=0 

2660 LOCATE 1,1:PRINT CHR$(24);"Wertpapier 
Stueckzahl Kurs aktuell Bel.satz 
Kurswert Beleihungswert ";;CHR$(24) 

2670 IF a=0 THEN INK 1,1,26:SPEED INK 12,1 
2:LOCATE 27,10:PRINT"Kein Depotbestand vor 
handen !":FOR mus=600 TO 20 STEP -30:SOUND 
1,mus,2,5:NEXT:CALL &BB06:INK l,24:GOTO 3 
00 

2680 Z=3 

2690 FOR i=l TO a ..... 

2700 belwert(i)=(kurswert(i)*bel(i))/loo 
2710 LOCATE l,z:PRINT aktieS(i) 

2720 IF invest(i)=l THEN LOCATE 17,z:PRINT 
USING"####.###";stk(i):GOTO 2740 
2730 LOCATE 17,z:PRINT USING"#####";stk(l) 
2740 LOCATE 29,z:PRINT USING"####.###";kur 

2750 LOCATE 43,z:PRINT USING"### %";bel(i) 
2760 LOCATE 54,z:PRINT USING"######.##";ku 
rswert(i) 

2770 LOCATE 68,z:PRINT USING"######.##";be 
lwert(i) 

2780 z=z+l 

2790 IF Z=23 THEN CALL &BB06 :WINDOW#l,1, 80 
,3,25 :CLS#1: z=3 
2800 NEXT 

2810 i=0:kurswges=0:belwertges=0 
2820 FOR i=l TO a 

2830 kurswges=kurswges+kurswert(i) 

2840 belwertges=belwertges+belwert(i) 

2850 NEXT:LOCATE l,z:PRINT"- 


[117] 

[240] 

[7348] 


[10919] 


[340] 

[421] 

[1532] 

[2687] 

[4638] 

[1954] 

[1693] 

[2527] 

[2796] 

[2673] 

[702] 

[2401] 

[350] 

[1185] 

[421] 

[2513] 

[1882] 

[5404] 


2860 z=Z+l:LOCATE l,z:PRINT"G E S A M T B 
E S T A N D" 

2870 LOCATE 54,z:PRINT USING"######.##";ku 
rswqes 

2880 LOCATE 68,z:PRINT USING"######.##";be 


[2642] 

[2630] 

[3067] 


lwertges 

2890 z=z+l:LOCATE l,z:PRINT"== 


===== [6128] 


2900 LOCATE 1,25:INPUT"Beleihungswerte aus 
drucken ? (j/n)";ausdr$ 

2910 IF ausör$="j" OR ausdrS="J" THEN 2920 
ELSE GOTO 300 

2920 CLS:LOCATE 10,10:INPUT"Heutiges Datum 
: ";datum$ 

2930 CLS:LOCATE 10,10:PRINT"Der Depotbesta 
nd wird ausgedruckt .." 

2940 PRINT#8 , CHR$ ( 27 ) + "G" ; "--- 

2950 PRINT#8', "DEPOTAUSDRUCK UND BELEIHUNGS 
SAETZE per ";datum$ 

2960 PRINT#8,"- 

-";CHR$(27)+"H"; 

2970 PRINT#8:PRINT#8 

2980 PRINT#8,"Wertpapier Stueckzahl 

Kurs aktuell Bel.satz Kurswert Beleih 
ungswert" 

2990 PRINT#8,"- 


[5110] 


[3381] 

[5752] 

[3694] 

[3493] 

[4029] 

[1314] 

[8020] 


3000 PRINT#8 
3010 FOR i=l TO a 

3020 beiwert(i)=(kurswert(i)*bel(i))/100 
3030 PRINT #8,aktie$(i); 

3040 IF invest(i)=l THEN PRINT#8,TAB(17) ;U 
SING"####.###";stk(i);:GOTO 3060 
3050 PRINT#8,TAB(17);USING"#####";stk(l); 
3060 PRINT#8,TAB(29);USING"####.###";kurs( 

3070 PRINT#8,TAB(43);USING"### %";bel(i); 
3080 PRINT#8,TAB(54);USING"######.##";kurs 
wert(i); 

3090 PRINT#8,TAB(68);USING"######.##";belw 
ert(i) 

3100 NEXT 

3110 i=0:kurswges=0:belwertges=o 
3120 FOR i=l TO a 

3130 kurswges=kurswges+kurswert(i) 

3140 belwertges=belwertges+belwerfc(i) 

3150 NEXT:PRINT#8,"- 


[343] 

[421] 

[1532] 

[1283] 

[5254] 

[2149] 

[2377] 

[2270] 

[3191] 

[1698] 

[350] 

[1185] 

[421] 

[2513] 

[1882] 

[3966] 


3160 PRINT#8,"G ESAMTBESTAND"; [2532] 
3170 PRINT#8,TAB(54);USING"###### .##",’kurs [2893] 
wqes; 

3180 PRINT#8,TAB(68);USING"######.##";belw [1754] 
ertges 

3190 PRINT#8,"============================ [5191] 


3200 GOTO 300 
Listing: DEPOTVERWALTUNG 
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AMS-Line 

Der Informationsdienst der 
Firma AMSTRAD 


Nachdem es um den “heißen Draht“ zu AMSTRAD etwas still geworden 
war, können wir nun die erfreuliche Mitteilung machen, daß es weitergeht 
- die AMS-Line glüht wieder. 


Die AMSTRAD-Hotline ist umge¬ 
zogen 

Um unseren Kunden eine noch bessere 
Unterstützung geben zu können, wurde 
unsere Supportabteilung vergrößert. 
Die bekannte Hotline-Telefonnum¬ 
mer hat sich dadurch geändert. 

Neue Telefonnummer: 

06105 / 280867 

Bitte beachten Sie: Nur unter dieser 
Telefonnummer erhalten Sie die ge¬ 
wünschten Auskünfte, 
von Montag bis Freitag, zwischen 
15.00 und 17.00 Uhr 
- und nur zu diesen Zeiten — warten 
unsere Spezialisten auf Ihre Fragen. 
Bitte wenden Sie sich mit Ihren Anfra¬ 
gen zuerst an Ihren Fachhändler, denn 
unsere Hotline soll für Problemfälle er¬ 
reichbar sein. 

Treiber, Disketten & Infomaterial 

Wir werden auch in der Zukunft versu¬ 
chen, die Bearbeitungszeit der techni¬ 
schen Anfragen so gering wie möglich 
zu halten. Hierfür bitten wir Sie, liebe 
Leserinnen und Leser der PC INTER¬ 
NATIONAL, um Ihre Unterstützung. 
Bitte senden Sie mit Ihrer Anfrage ei¬ 
nen ausreichend frankierten und mit Ih¬ 
rer Adresse versehenen Rückumschlag 
an die unten genannte Adresse. (Falls 
Sie einen Treiber benötigen, legen Sie 
bitte eine formatierte Diskette bei.) Zu¬ 
sätzlich zu Ihrer Problembeschreibung 
benötigen wir folgende Informationen: 
Welche Hardware (Zusatzkarten, RAM - 
Aufrüstung usw.) setzen Sie ein? 
Welche Software (Version des Be¬ 
triebssystems, speicherresidente Pro¬ 
gramme usw.) verwenden Sie? 

Legen Sie einen Ausdruck der Dateien 
A UTOEXEC. BAT und CONFIG. SYS bei. 
Unsere neue Anschrift lautet: 
AMSTRAD Computer GmbH 
Serviceabteilung 
Starkenburgstr. 2 
6082 Mörfelden-Walldorf 
Akku-Betrieb ALT 286 & ALT 386 SX 
Der Akkumulator muß bei Betrieb des 
ALT (Amstrad-LapTop) immer einge¬ 
setzt sein (auch beim Netzbetrieb). Die 


Akkumulatoren in unserem Laptop 
können direkt im Gerät wieder aufgela¬ 
den werden. Das interne Netzteil des 
Laptops dient dabei auch als Ladegerät 
für den Akkumulator. 

Es gibt zwei Möglichkeiten, den Akku¬ 
mulator zu laden: 

Tri ckle-Lademodus 

Bei diesem Modus wird der Akkumula¬ 
tor langsam nachgeladen. Dieser Lade¬ 
modus kann, je nach Kapazität des Ak¬ 
kumulators, bis zu 36 Stunden dauern. 
Wurde der ALT am Netz betrieben und 
dann mit dem Netzschalter ausgeschal¬ 
tet, befindet er sich automatisch in die¬ 
sem Lademodus. Die Ladeanzeige¬ 
LED leuchtet dann grün auf. Durch 
eine Schutzschaltung wird ein Überla¬ 
den des Akkumulators vermieden. 
Schnell-Lademodus 
Dieser Lademodus wird aktiviert, in¬ 
dem man den Laptop am Netz betreibt, 
am Netzschallcr ausschaltet, den Netz¬ 
stecker zieht und nachdem die grüne 
LED-Anzeige erloschen ist, den Netz¬ 
stecker wieder einsteckt. Jetzt leuchtet 
die^Ladeanzeige-LED orange auf. In 
diesem Lademodus wird der Akkumu¬ 
lator in zirka zwei Stunden wieder auf- 
geladen. Das Netzteil schaltet dann au¬ 
tomatisch in den Trickle-Lademodus 
um. Die Schutzschaltung verhindert 
wieder ein Überladen des Akkumula¬ 
tors. 

Windows 3.0 

Viele Anwender wollen die neueste 
Windows-Version 3.0 auf Ihrem Com¬ 
putern einsetzen. Die Hardware-Vor¬ 
aussetzung hierfür ist (laut Microsoft) 
mindestens ein 80286- oder ein höherer 
Prozessor (AT-Rechner). 

Bei der Installation kann es bei man¬ 
chen Geräten (PC2386 / PC2286) Vor¬ 
kommen, daß das SETUP-Programm 
von Windows die Maus (Amstrad- 
Maus) nicht erkennt. Abhilfe hierfür 
schafft ein kleines Programm mit dem 
Namen MOUSEFIX. Dieses Pro¬ 
gramm, inklusive Beschreibung, erhal¬ 
ten Sie bei einem unserer Fachhändler 
oder direkt von unserer Serviceabtei¬ 
lung. 


Sollten Sie spezielle Anfragen zu Mi¬ 
crosoft Windows haben, wenden Sie 
sich bitte direkt an die Hotline der 
Firma Microsoft in München: 
Telefonzentrale: 089/31705-0 
Windows-Hotline: 089/31705-85 
An der Windows-Hotline stehen Ihnen 
für Ihre Anfragen die Windows-Spe¬ 
zialisten direkt zur Verfügung. 
Wichtiges zum Laserdrucker LD 
6000! 

- ONSITE-Garantie 
Mit unserem LD 6000 erwerben Sie ei¬ 
nen leistungsfähigen Drucker und 
gleichzeitig eine ömonatige ONSITE- 
GARANTIE. Das bedeutet, sollte der 
Drucker während dieser Zeit einmal 
ausfallen, daß Sie nichts weiter tun 
brauchen, als zum Telefonhörer zu 
greifen und unseren Servicepartner 
“Telub Bitronic“ anzurufen. Die Te¬ 
lefonnummer lautet: 

069/60501455 

Der Techniker kommt direkt zu Ihnen, 
und das alles kostet Sie keinen Pfennig. 

Zubehör zum LD 6000, Transport 
des Druckers 

Bitte verwenden Sie nur das Original¬ 
zubehör von AMSTRAD. An den ver¬ 
schiedenen Zubehörkomponenten sind 
Feinsicherungen angebracht. Sie dür¬ 
fen nicht entfernt werden. Diese Siche¬ 
rungen werden beim erstmaligen Ein¬ 
satz der Zubehörteile zerstört und die¬ 
nen dem Zurücksetzen des Kopienzäh¬ 
lers. Tauschen Sie also niemals die 
Sicherungen aus, denn das kann zur 
Zerstörung von elektronischen Bautei¬ 
len führen. Der Drucker bringt nach 
Verschleiß des Toners, Developers 
oder der Phototrommel eine entspre¬ 
chende Meldung im Display, die nur 
durch das Einsetzen von neuen Zube¬ 
hörkomponenten aufgehoben wird. 
Sollten Sie einmal in die Verlegenheit 
kommen, den Drucker transportieren 
oder gar verschicken zu müssen, dann 
entfernen Sie bitte vorher alle Zube¬ 
hörteile. Laserdrucker dürfen niemals 
mit installiertem Zubehör transportiert 
werden. Der Toner könnte durch Er¬ 
schütterung oder Kippen des Gerätes 
auslaufen und großen Schaden an Druck¬ 
werk und Elektronik verursachen. 

T u™/I 


CUsUCLts 


Die AMS-Line ist ein Informalionsservice der Firma 
AMSTRAD GpibH und unterliegt nicht der Verantwor¬ 
tung der Redaktion. 

Anfragen zu den gegebenen Informationen bitte aus¬ 
schließlich an die Firma AMSTRAD GmbH. 



4/5 ’ 91 PC 35 



(—Bericht 


I 

. 

I 

* 



Mit freundlicher Genehmigung von Herrn II. Bürger 


Wie bei der Bundesbahn 

Modellbahnsteuerung mit dem CPC 

Natürlich haben Sie es schon immer gewußt, aber hier ist ein Beweis mehr 
- die Möglichkeiten des CPC sind, wenn man weiß wie, w irklich 
unbegrenzt. Dieses Mal wollen wir Ihnen eine professionelle Modelleisen¬ 
bahnsteuerung per CPC vorstellen 


Die Krönung für jeden Benutzer eines 
Computers ist es, mit seiner Hille Ge¬ 
räte aller Art steuern zu können. Da 
wird die Lichtanlage einer Discothek 
automatisiert, an anderer Stelle läßt je¬ 
mand zur passenden Zeit seine Kaffee¬ 
maschine oder das Licht in der Woh¬ 
nung ein- oder ausschalten. 

Zwei Tüftler aus dem Ruhrgebiet hat¬ 
ten da aber eine ganz andere Idee, näm¬ 
lich die Steuerung einer Modelleisen¬ 
bahnanlage mit dem CPC. Über Um¬ 
wege erfuhren wir von dieser tollen Sa¬ 
che, waren begeistert und haben uns 
das Ganze angeschaut. 


Nachdem wir erste telefonische Kon¬ 
takte geknüpft hatten, nahmen wir an. 
eine “unscheinbare Anlage“ (Zitat) 
vorgeführt zu bekommen, die nicht 
sehr fotogen sein sollte. 

Die richtige Idee bringt’s 

Vor Ort stellten wir aber fest, daß die 
uns mitgeteilte Unscheinbarkeit der 
Anlage eine grandiose Untertreibung 
darstellte. Vor uns stand ein Aufbau 
von etwa 4,00 Meter Breite und 1.30 
Meter Tiefe, auf der sich die verschie¬ 
densten Züge auf verschlungenen 


Gleiswegen tummelten. Wir sahen 
schaltende Signale und Züge, die lang¬ 
sam anhielten, um andere passieren zu 
lassen, sich danach selbst die Weichen 
legten und dann sachte wieder anfuhren 
— alles ohne menschlichen Eingriff. 
Mittendrin ein CPC 464 mit Disketten¬ 
laufwerk. 

... wie von Geisterhand bewegt 

Es stimmte also — der CPC steuerte die 
gesamte Gleisanlage — eine Anlage 
übrigens, die zwar ohne die üblichen 
Aufbauten wie Wiesen, Berge und 
Häuser aufgebaut war. nach der sich je¬ 
doch mancher eingeschworene Modell¬ 
eisenbahner wegen der vielseitigen 
Fahrmöglichkeiten die “Finger lecken“ 
würde. Nachdem wir alles in Augen¬ 
schein genommen hatten, stellten wir 
fest, daß hier Leute sehr viele Ideen 
und Arbeit investiert hatten mit dem 
Ergebnis einer professionellen Glcis- 
anlagensteuerung, die alles bisher Da¬ 
gewesene in diesem Bereich der Mo- 
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Bild I; MST — Gleisanlagensteuerung auf dem CPC 


er: 6574 Bytesfrei 


Bild 2: Die Fahrstraßen w erden eingegeben 


delleisenbahnerci in den Schatten stel¬ 
len dürfte. Wie kam es dazu? 

Dietmar Gabler, von Beruf Bauinge¬ 
nieur, beschäftigt sich in seiner Frei¬ 
zeit seit 25 Jahren mit Elektronik aller 
Art. Er absolvierte neben seiner Arbeit 
als Ingenieur ein zusätzliches Elektro¬ 
nik-Fernstudium und spezialisierte 
sich im Laufe der Zeit als Hobby auf 
den Bau und die Reparatur von elektro¬ 
nischen Orgeln. Er genoß dadurch in 
Bastlerkreisen einen sehr guten Ruf. 


se der Anfahr-Brems-Vorgang oder die 
Fahrstraßenschaltung nicht ausgereift 
waren oder aber Gahler noch Verbes¬ 
serungsmöglichkeiten fand. Er tüftelte, 
reparierte und half, wo er konnte - mit 
der Zeit reifte aber die Idee, die ganzen 
Insellösungen zusammen/,u fassen und 
in einer einzigen Steuerungsanlage zu 
integrieren. 

In der Gleisanlagensteuerung, sowohl 
im Modellbereich wie auch in natura, 
sieht für den Laien das Hin- und Her¬ 


Block frei ist. Wird dieses einfache 
Prinzip konsequent eingehalten, kann 
es keine Unfälle geben. Hierdurch 
kommt jedoch lediglich ein Kreisver¬ 
kehr zustande, in dem jeder Zug war¬ 
ten muß, bis der vorausgefahrene den 
Block frei gemacht hat. um ihn dann 
Bugs zu verfolgen. 

Die Gleisanlagensteuerung ist 
hochkom pliziert 


der mit der Zeit dazu führte, daß ihn 
Freunde und Kollegen bei elektroni¬ 
schen Problemen um Rat und Hilfe 
fragten, die er gern leistete. 

So bekam er Kontakt zu einigen Mo¬ 
delleisenbahnern, die versuchten, die 
Steuerung ihrer Anlagen mit verschie¬ 
denen, zu der Zeit handelsüblichen In¬ 
sel lösungen zu verbessern. Insellösun- 
gen heißen sie deshalb, weil sie immer 
nur einem einzigen Problem zu Leibe 
rücken. Ärgerlich war jedoch, daß 
manche dieser Lösungen, beispielswei¬ 


fahren der Züge zwar sehr einfach aus, 
tatsächlich aber ist es eine äußerst kom¬ 
plizierte Sache, die von vielerlei Fakto¬ 
ren beeinflußt wird. Als Beispiel soll 
das Thema Blocksicherung dienen. 
Eine Gleisanlage wird immer in einzel¬ 
ne Abschnitte, im Fachjargon Blöcke, 
aufgeteilt. 

Die Blocksicherung trägt nun Sorge da¬ 
für, daß sich in einem Block immer nur 
ein Zug befindet, der auch nur dann 
Fahrerlaubnis (Strom) erhält, wenn der 
nächste in Fahrtrichtung liegende 


Kompliziert wird die Sache erst, wenn 
Weichen ins Spiel kommen und sich 
dadurch mehrere Fahrwege ergeben 
oder sich sogar kreuzen. Wenn die 
Züge dann auch noch ihre Fahrtrich¬ 
tung wechseln und den Verfolgern ent- 
gegenfahren. ist es mit der Einfachheit 
vorbei. Jetzt muß nach allen Seiten, 
nach vorne und hinten, nach rechts und 
links gesichert werden. Die Blocksi¬ 
cherung ist aber nur eine von vielen 
wichtigen Vorgängen in der Gleisanla¬ 
gensteuerung. 
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Die Idee Gahlers war also, eine Steue¬ 
rung zu konzipieren, welche in der 
Lage ist, alles, was an einer Modellei¬ 
senbahn gesteuert werden kann, zu 
koordinieren - genauso, wie dies bei 
der Bundesbahn auch gemacht wird. 
Naheliegend war da natürlich die Ver¬ 
wendung eines Computers — in diesem 
Fall eines CPC, mit dem Gahler an sei¬ 
ner Arbeitsstelle über einen Kollegen 
in Berührung kam. 

Daß die Wahl auf den CPC fiel, lag 
aber auch daran, daß dieser Rechner 
alle Voraussetzungen erfüllte, die für 
das Funktionieren dieser Computer¬ 
steuerung erforderlich waren. Die 
wichtigste dieser Voraussetzungen war 
die Möglichkeit, ohne Umweg über die 
genormten 2400-Baud-Schnittstellen 
direkt auf das Herz des Computers zu¬ 
greifen zu können. Ein wichtiger 
Aspekt war nämlich, daß der Daten¬ 
austausch für eine Echtzeitsteuerung 
schnell genug sein mußte. Lediglich 
der CPC — im Gegensatz zum eben¬ 
falls weitverbreiteten C64 von Com- 
modore - besaß unter den Homecom¬ 
putern diesen und auch noch andere 
Vorteile. Mit ihm wird eine Übertra¬ 
gungsrate von sagenhaften 450000 
Baud erreicht. 

Natürlich stand die heutige Steuerungs¬ 
anlage nicht gleich von Anfang an, 
denn für diese Verwendung des CPC 
gab es weder Hard- noch Software. 
Gahler begann den CPC dazu zu brin¬ 
gen, eine Weiche zu schalten. Er ent¬ 
wickelte dafür eine Elektronik, die mit 
dem Expansionsport und einer Weiche 
gekoppelt wurde. Dazu schrieb er ein 
kleines BASIC-Programm, das mit 
OUT-Befehlen Impulse “nach drau¬ 
ßen“, also an die Weiche, sendete. 
Er benötigte ein halbes Jahr und etliche 
Versuche, bis eines Tages die Weiche 
“klick“ machte und er die endgültige 


Bild 5: Liste der 
Fahrstraßen 

Gewißheit hatte, daß der CPC in der 
Lage ist, Steuerbefehle in der ge¬ 
wünschten Weise an die Außenwelt zu 
senden. Dabei mußten verschiedenste 
Schwierigkeiten überwunden werden. 
Als Beispiel seien hier die langen Ka¬ 
belverbindungen genannt, die den 
Rechner immer wieder zum Absturz 
brachten. Doch auch diese Probleme 
wurden gelöst, und das heißersehntc 
Klicken der Weiche legte den eigentli¬ 
chen Grundstein für die weitere Ent¬ 
wicklung. 

... die Weiche machte “klick“ 

Der Vorläufer der heutigen Version, 
die Fahrstraßensteuerung, wurde nun 
rasch weiterentwickelt und zur Serien¬ 
reife gebracht. Gahler konstruierte da¬ 
für zunächst eine Schnittstcllen-Karte 


als Hauptverbindungsstück zwischen 
Rechner und Gleisanlage, der dann die 
Karte für die Weichenschaltung folgte. 
Es entstand auch ein erstes vollständi¬ 
ges Steuerprogramm für den CPC, ge¬ 
schrieben in BASIC. Mit dieser Ausrü¬ 
stung war es dann möglich, beliebig 
viele Weichen einer Modelleisenbahn¬ 
anlage zu großräumigen Fahrstraßen 
zusammenzufassen oder auch einzeln 
zu schalten. 

Die Arbeiten an dem Projekt wurden 
nun immer umfangreicher - schließ¬ 
lich sollte es nicht bei der puren Wei- 
chenschallung bleiben — und für eine 
Person wurde es zu viel, sich um die 
Hardware- und Software-Entwicklung 
allein zu kümmern. Gahler, mehr 
Hardware-Mann als Programmierer, 
suchte und fand einen Tüftler, Bauin¬ 
genieur Frank Ringstmeier. ein Ar¬ 
beitskollege, der auf der Universität 
mit EDV in Berührung kam, sich für 
Programmierung interessierte und 
Spaß an den außergewöhnlichen Ideen 
und Lösungen seines Kollegen hatte. 

Ein zeitfüllendes Hobby für zwei 
Tüftler 

Ringstmeier hatte schon einige Erfah¬ 
rung mit den CPCs. da er diese Geräte 
bei seinem Arbeitgeber für bautechni- 
sche Berechnungen mit Erfolg einge¬ 
führt hatte. Er war derjenige, der. al¬ 
lerdings ohne zu ahnen, was da auf ihn 
zukommen würde, Gahler mit diesen 
Rechnern an der Arbeit bekannt mach¬ 
te. Ab Beginn der Zusammenarbeit der 



HUd 6: Steuerzentrale CPC 
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beiden Entwickler konzentrierte er sich 
dann darauf, parallel zu Gahlers Hard¬ 
ware-Entwicklungen das Programm zu 
verfeinern, indem er es komplett mit 
Assembler neu schrieb. 

Durch diese Arbeitsteilung konnte sich 
Gahler voll auf die Weiterentwicklung 
der Elektronik konzentrieren. Ende 
1987 waren er und Ringstmeier dann so¬ 
weit. Ihr Ziel war erreicht. Ein voll¬ 
ständig vom Fahrdienstleiter steuerba¬ 
rer und durch den Computer gesicher¬ 
ter Zugverkehr war möglich gewor¬ 
den. Diese Version wurde 1988 weiter 
verbessert und konnte am Beispiel ei¬ 
ner Spur-N-Anlage im September 1988 
Interessenten aus ganz Deutschland 
präsentiert werden. 

Sie wurde im weiteren noch auf ver¬ 
schiedenen Messen gezeigt, wobei die 
Entwicklung natürlich nicht stehen¬ 
blieb. denn die Vorschläge vieler Mo¬ 
delleisenbahner waren ein ständiger 
Fundus für Erweiterungen. Sehr wich¬ 
tig bei der hier realisierten Mehrzug¬ 
steuerung war für viele Modelleisen¬ 
bahner. daß im Gegensatz zu manchen 
anderen Steuerlösungen keinerlei Ein¬ 
griffe in die Lokomotiven, in denen der 
Antriebsmotor sitzt, notwendig waren. 
Der Einsatzbereich der Steuerung ist 
übrigens lediglich abhängig von der 
Leistung der Elektronik, so daß 
Gleichstromanlagen der Spuren “Z“, 
“N“, “TT“ und “HO“ angeschlosscn 
werden können. 

Die Entwicklung ist nicht zu 
bremsen 

Neben der Hardware gibt es nun ein 
vollständig menügesteuertes Pro¬ 
gramm. das auf allen CPCs läuft. Im 
Dialog wird ein computerinternes Mo¬ 
dell des Streckennetzes einer beliebi¬ 
gen Anlage erstellt. Im Programm wird 
das durch die Unterroutine Fahrstra¬ 
ßen eingeben realisiert. Anhand der 
eingegebenen Vorlage berechnet der 
Computer seine Reaktionen auf die so¬ 
genannten “Einflüsse seiner Umwelt“. 
Darunter sind zum Beispiel die Fahr- 
streckenvorgabe des Anwenders oder 
die Position eines Zuges zu verstehen. 
Das Programm bildet also eine kontrol¬ 
lierende Schnittstelle zwischen Mensch 
und Steuerung der Modelleisenbahn. 
Man kann den Zugbetrieb ohne Ein¬ 
schränkungen, als wenn der Rechner 
überhaupt nicht vorhanden wäre, über 
das Gleisbildstellpult, das bei großen 
Anlagen empfehlenswert ist, ab¬ 
wickeln. Das Steuerprogramm wacht 
aber darüber, daß vom Anwender kei¬ 
ne fehlerhaften Fahrstrecken vorgege¬ 



Bild 7: Ein typisches Gleisbildstellpult 


ben werden und daß sich Züge auf der 
Strecke nicht in die Quere kommen. 
Auch werden Vorgänge, wie etwa das 
Schalten einer Weiche unter dem Zug, 
verhindert. 

Mit fehlerhaften Fahrstrecken sind sol¬ 
che Vorgaben gemeint, deren Ausfüh¬ 
rung nicht möglich ist oder die zur Kol¬ 
lision zweier Züge führen würden. Der 
Rechner sorgt auch dafür, daß die der 
jeweiligen Betriebssituation entspre¬ 
chenden Signale richtig gesetzt sind. 
Wo genau welcher Zug steht, weiß das 
Programm zu Anfang natürlich nicht. 


Es muß ihm erst “gesagt“ werden. Hat 
man dieses aber einmal getan, wird die 
jeweilige Position des Zuges über die 
gesamte Fahrstrecke hinweg verfolgt. 
Möglich wird das durch die Kontrolle, 
ob in einem jeweiligen Bereich Strom 
fließen kann oder nicht. 

Der kleinste kontrollierbare und mit ei¬ 
ner gesonderten Stromzufuhr versehe¬ 
ne Bereich ist ein Fünftel eines Blok- 
kes. Innerhalb eines Blockes, der im 
allgemeinen die Strecke zwischen zwei 
Weichen darstelll, befindet sich maxi¬ 
mal ein Zug. Ein anderer Zug. der den 



Bild ü: Die VorJührunUige von Cahier und Ringstmeier - der CRC an Hintergrund 
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Bild 9: Die Spezialisten vor ihrer Anlage 


Block befahren will, erhält solange ein 
rotes Signal, bis der Block frei ist. 
Auch Blöcke, die laut Vorgabe von 
dem Zug noch befahren werden sollen, 
sind für diesen reserviert und können 
von anderen nicht befahren werden. 

Die Physik verlangtes - wo ein 
Zug ist, kann kein anderer 

sein 

Eine korrekte Funktionsweise des Pro¬ 
gramms kann nur gewährleistet wer¬ 
den, wenn das durch die Computerda¬ 
ten repräsentierte Modell und die zu 
steuernde Hardware auch übereinstim¬ 


men. Sollte dies einmal nicht der Fall 
sein, zum Beispiel wenn ein Zug ent¬ 
gleist oder ähnliches, gibt der Compu¬ 
ter eine Fehlermeldung aus und sichen 
den betroffenen Bereich, der ja nun 
von der Anlage her fälschlicherweise 
“frei gemeldet“ wird. Jetzt ist der Ein¬ 
griff des Menschen gefragt, der zum 
Glück immer noch unersetzlich ist. 

Sie warten bestimmt schon gespannt 
darauf, etwas mehr über die Hardware 
zu lesen. Im folgenden Abschnitt gehen 
wir etwas näher darauf ein. 

Neben der erforderlichen Grundausrü¬ 
stung. die vor allem den Computeran¬ 
schluß und die notwendigen Trafos ent¬ 


hält, besteht die Elektronik aus einzel¬ 
nen Steckkarten im Europaformat. Die 
160x100 mm großen Platinen sind in 
einem externen 19-Zoll-Einschubrah- 
men untergebracht. 

Bedingt durch die Tatsache, daß sich 
auf den Platinen keinerlei Logik befin¬ 
det, ist ihr Aufbau relativ einfach. Au¬ 
ßerdem ist es möglich, im Bedarfsfall 
Platinen mit gleicher Funktion unter¬ 
einander zu tauschen. Bei der Fehler¬ 
suche ist das ein nicht zu unterschät¬ 
zender Vorteil. 

Die Steuerkarten setzen sich zusam¬ 
men aus Platinen für Weichen- und 
Formsignalschaltung, Lichtsignal¬ 
schaltung sowie für die Fahrstromcr- 
zeugung. Diese Steuerkarten sind für 
den Signalweg vom Computer zur An¬ 
lage vorgesehen. Für die Gegenrich¬ 
tung, von der Anlage zum Computer, 
gibt es Rückmeldeplatinen. Je nach 
Verwendungszweck können sie dem 
Computer ein besetztes Gleis, einen im 
Gleisbildstellpult gedrückten Taster 
oder die momentane Stellung eines 
Schalters melden. 

Die Kopplung des CPCs mit der Anla¬ 
ge geschieht über den Expansionsporl. 
Direkt angesteckt ist eine Leiterplatte 
mit Bustreiberschaltkreisen, Buffer ge¬ 
nannt. Von hier aus geht eine relativ 
lange Leitung zu der Interface-Karte. 
Bis zu diesem Punkt handelt es sich um 
eine parallele Datenübertragung. 

Hier geschieht nun das Erstaunliche 
dieser Entwicklung — die Daten wer¬ 
den einer parallel-seriell-Wandlung 
unterzogen. Dies geschieht aus dem 
einfachen Grund der begrenzt vorhan¬ 
denen freien Portadressen des CPC. Es 
soll aber eine große Zahl von Geräte¬ 
teilen, zum Beispiel Weichen, Züge 
und so weiter, angesprochen werden. 

Der Expansionsport ist Mittler 
zwischen dem CPC lind der 
Anla ge 

Das Prinzip ist einfach aber genial. Es 
wird ein Steuerwort gebildet, in wel¬ 
chem alle Bits, außer einem, auf Null 
gesetzt sind. Dieses eine Bit entspricht 
dem Objekt der Anlage, das angespro¬ 
chen werden soll. Das Steuerwort wird 
nun durch Schieberegister geschoben. 
An entsprechender Stelle wird das 
Schieben gestoppt. Das gesetzte Bit be¬ 
findet sich jetzt an einer Stelle der 
Schaltung, die den gewünschten Teil 
aktiviert. 

Aber wie funktioniert die Motorsteue¬ 
rung? Bei dieser gibt es ja einige Be- 



Klei nes F ach Wörter- Lex i kori 

Block 

— 

überwachter Gleisabschnitt 

Blocksicherung 

= 

sorgt dafür, daß sich innerhalb eines Blockes immer nur 
ein Zug befindet 

Bereich 

= 

kleinster Überwachungsabschnitt innerhalb eines Blockes 
zur Pqsitionsfeststellung des Zuges 

Mehrzugsteuerung 


erlaubt die individuelle Steuerung verschiedener Loks, 
die dennoch alle von einem Trafo gespeist werden 

Hier sogar ohne die sonst üblichen Lokdecoder 

Fahrstraße 


Fahrweg eines Zuges, bestehend aus beliebig vielen 
Weichen, die durch einen einzigen Befehl geschaltet 
werden 

Fahrdienstleiter 

= 

verantwortlicher Stellwerksbeamter, der durch Schaltung 
von Fahrstraßen und Signalen den Zugbetrieb steuert 

Steckkarte 

= 

modulartiger, austauschbarer Elektronikbaustein 

19-Zoll-Rahnien 

= 

professionelles Gehäuse mit einzelnen Steckplätzen zur 

(Einschubrahmen) 


Aufnahme der Steckkarten 

Baud 


Geschwindigkeit der Datenübergabe von einem Gerät an 
ein anderes. Gemessen in Bits pro Sekunde 
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Sonderheiten, da ja die Züge langsam 
anfahren und auch allmählich anhalten 
sollen. Die Endgeschwindigkeit für ei¬ 
nen Zug wird vom Anwender bestimmt 
und vom Computer an den Ort der Lok, 
d.h. an den Block gesendet. Und wie ist 
das bei der Digitaltechnik am einfach¬ 
sten zu realisieren? 

Natürlich durch Impulse, wobei die 
Impulsbreite in diesem Fall bestim¬ 
mend ist für die Drehzahl der Motoren. 
Durch diese einfache, aber wirkungs¬ 
volle Methode w'ird eine aufwendige 
Digital-Analogwandlung geschickt 
umgangen. Dies ist nicht die einzige 
Lösung, die durch ihre Einfachheit be¬ 
sticht. Zum Beispiel wurde ja auch die 
Positionsbestimmung ohne aufwendige 
Sensoren erreicht. Nur durch die Fest¬ 
stellung, ob in einem Bereich Strom 
fließen kann oder nicht, verfolgt der 
Computer die Position des Zuges. 

Einfach - aber gut 

Das aus drei Teilen bestehende Pro¬ 
gramm ist sehr anwenderfreundlich 
aufgebaut. Mit dem Hauptprogramm 


MST, dem Prüfprogramm MSTP und 
dem Druckprogramm MSTD kann der 
Anwender alle an der Anlage anstehen¬ 
den Arbeiten problemlos ausführen. 
Hier nun die Vorstellung des Haupt¬ 
programms. Nachdem MST geladen 
und gestartet wurde, erscheint nach ei¬ 
nem Eröffnungsbild das Auswahlme- 
nü, bestehend aus fünf Fenstern, die 
übereinander angeordnet sind. Im Fen¬ 
ster eins befinden sich Programmname 
und Copyright-Vermerk. Das zweite 
Fenster zeigt alle vorhandenen Pro¬ 
grammverzweigungen. Diese sind 
zweibuchstabig abgekürzt. Daher wer¬ 
den die dureh den Anwender mit den 
Cursortasten gewählten Menüpunkte 
im Fenster drei kurz dokumentiert. 
Fenster vier und fünf sind Arbeitsfen¬ 
ster für das jeweils laufende Unterpro¬ 
gramm. 

Das gesamte System ist bei den ver¬ 
schiedensten Modelleisenbahnanlagen 
der erwähnten Spuren einsetzbar. Da 
die spezielle Konfiguration durch den 
Anwender im Dialog mit dem Compu¬ 
ter geschieht, kann jeder das Pro¬ 
gramm auf seine spezielle Modellei¬ 


senbahnanlage abstimmen. Das System 
stellt eine sehr gute Alternative zu den 
handelsüblichen Digitalsystemen, de¬ 
ren Erläuterung hier zu weit führen 
würde, dar. 

Dietmar Gahler und Frank Ringst- 
meier vertreiben ihre Erfindung mitt¬ 
lerweile europaweit. Die Software 
wird fertig ausgeliefert. Die je nach 
Umfang der eigenen Anlage benötigte 
Hardware ist als Bausatz oder mit fer¬ 
tig bestückten Leiterplatinen erhält¬ 
lich. Auch dieses Beispiel einer CPC- 
Anwendung zeigt deutlich, was alles 
mit diesem Rechner möglich ist. 

(Jörg Gurowski/Frank Sippel/tk) 


Info 

Dipl.-Ino. Dietmar Gahler 

Gabelsberger Straße 2a 
4690 Herne 2 

Dipl.-Ing. Frank Kingstmeier 

Dr. Isbruchstr. 16 
4350 Recklinghausen 

Preise: ab 1000, DM 


Loco Script PC 


LocoScript PC Version 1.09 in Deutsch mit deutschem 
Installationsprogramm und deutschen Installationshin¬ 
weisen sowie englischen Handbüchern für MS.DOS 
PC/XT/AT sofort lieferbar für _ _ _ _ _ 

598,50 DM 

Ab Frühjahr 1991 sind LocoScript PC Handbücher in 
Deutsch mit dt. Beispielsdiskette (3,5' oder 5,25') für 
119,70 DM inklusive Versandkosten erhältlich. 


3”-Anschlußset für PC’s 


Mit dem 3*-Anschlußset kann man ein 720 kB 3’-Lw. 
an MS.DOS PC/XT/AT anschließen und alle Daten 
(Texte) von CPC‘ sowie PCW 3'-Disketten verarbeiten. 
Das 3'-Anschlußset ist bereits ab 342,-- DM erhältlich. 


JOYCE PCW Neuheiten 


* CPS 512 kB RAM-BOX (bis zu 2 MB) * 

★ ProSCAN (Handscanner) ★ Software * 

Soft- & Hardwareinfo’s für 2,40 DM in Briefmarken 

WIEDMANN 

Unternehmensberatung & Handel 


Korbiniansplatz 2 
D-8045 Ismaning 
Tel.: 089-965Q29 
Fax: 089-965001 
Btx.: 089965029 


Swebenhöhe 47 
D-2000 Hamburg 72 
Tel.: 040-6436447 


Geschäftszeiten nur nach 
telef. Termin Vereinbarung. 


JOYCE 


+++jetzt lieferbar+++ 


MicroDesign2 

♦die Auslieferung er¬ 
folgt mit deutschem 
Tastaturtreiber 

DM 169- 

Externe TERC- 
LauFiuerke: 

Als ZWEIT- F1 oppy: 

3.5-.DM 222.- 

5.25-.DM 299.- 

Als DRITT - Floppy: 

3.5".DM 259.- 

5.25".DM 319.- 

Turbo-modul 

"SPRINTER" a. Anf. 
JOYCE-Platinenservice 
B.GRASSHOFF, Rösoll 36 
2305 Heikendorf 
24h Hotline: 0431-245583 

Diese Anzeige wurde 
auf einem PCW mit 
MicroDesign2 erstellt 


AMSTRAD - Computer 
Software + Zubehör 

AMSTRAD-Computer auf Anfrage 
Auszug aus unserem Ueferprogramm 


JOYCE-Zu behör: 

Farbband 8256/8512 (Nylon) 12,90 

dto. 5 Stück 59,90 

3"-Markendisketten 10 St. 59,90 

Farbband 9512 (Nylon) 18,95 

Typenräder 9512 + SD15 25,00 

Diskettenbox f. 60 Disk. 15,50 

Diskettenbox 1 .100 Disk. 18,95 

Druckverlängerung 1,5 m 39.50 

Centronics-Schnittstelle 179,00 

Staubschutzhauben 3er Set 64,50 

Weitere Hauben auf Anfrage. 
Transferprogramm 55,00 

CP/M-DOS (auch für CPC) 
PC-Zubehör : 

Abdeckhaube Tastatur 
1512/1640 16,95 

Abdeckhaube Monitor 
1512/1640 39,50 

Laufwerk 3 1/2" int. 1512/1640 220,00 

Laufwerk 3 1/2" ext. 1512/1640 398,00 

Laufwerk 5 1/4" ext. 1512/1640 398.00 

51/4"-Reimgungsdiskette 6.95 

31/2"-Reinigungsdiskette 9,95 

Monitorverlängerung 1512 59,75 


Tastaturverlängerung 1512/1640 12,00 
Diskettenbox f. 100 5 1/4"-Disk. 16,95 
Diskettenbox f. 50 5 1/4"-Disk. 15,50 
Weitere Preise auf Anfrage! 
Preisliste gegen Rückporto 

Lieferung nur gegen UPS-Nacnnatime (DM 9,50) 
Ausland: Lieferungen nur gegen Votkasse-Var- 
rochnungsscheck (Voisanukosten DM 15.00), 
Mindestauftragswert DM 50,00 zzgl. Versandkoslon 
Sei Aullragen unter DM 50.00 müssen wir einen 
Mindermengonzuschlag von DM 15,00 zum Auf¬ 
tragswert berechnen. 


COM-ZU-ELEKTRONIK 

Michael Kürbis 
Maudacher Sir. 215 
D-6700 LUDWIGSHAFEN 
TEL: 06 21 / SS 95 56 
FAX: 06 21 / 55 95 03 

Wir haben unseren Service erweitert soste .len Sie einfach pei 

BTX-Nr. 06 21 / 55 95 03-0001 
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der CGA-Grafik des PC entspricht. 
Nur die Tastatur wirft etwas Probleme 
auf, da einige Tasten gar nicht vorhan¬ 
den sind. Die Belegung der Funktions¬ 
tasten schafft jedoch Abhilfe. 

Ein Geniestreich aus Sachsen 

Die Firma AP & Ril Electronic GmbH, 
unlängst gegründet in Leipzig, im neu¬ 
en Bundesland Sachsen, bietet dem¬ 
nächst in Serienfertigung ein Modul 
an, in welchem 640 kByte RAM unter¬ 
gebracht sind. Und jetzt das Tollste, 
ein Prozessor 8088 mit diverser Elek¬ 
tronik zur Gewährleistung seiner 
Funktion und ein 32 kByte EPROM mit 
dem ROM-BIOS sind ebenfalls ent¬ 
halten. 

Das Modul — der Emulator — ist mo¬ 
mentan nur für den CPC 6128 einsetz- 
bar, an einer Anpassung an die beiden 
anderen CPC-Versionen wird gearbei¬ 
tet. Zum Preis wollte man uns leider 
noch keine Auskunft geben, aber er 
soll, laut Aussage eines der beiden Ge¬ 
schäftsführer der Firma, für jeden 


Der absolute Hammer 

MS-DOS-Emulator für den CPC 

Es ist soweit. Das Unglaubliche wird wahr. Sie brauchen keine riesigen 
Investitionen mehr zu tätigen, um künftig auch mit MS-DOS arbeiten zu 
können. Eine Wahnsinnsidee macht es möglich, die wir in Form eines 


Prototypen testen konnten. 


Als Anwender eines CPC haben Sie be¬ 
stimmt schon einmal darüber nachge¬ 
dacht, sich einen MS-DOS-PC zuzule¬ 
gen oder ganz umzusteigen. Aus ver¬ 
schiedenen Gründen, sei es der Kosten 
wegen oder weil Sic an Ihrem CPC 
doch ein wenig hängen, taten Sie es 
aber dann doch nicht. Oft vermißt man 
aber die Möglichkeiten, die ein PC un¬ 
ter MS-DOS bietet. 

Was sind nun die Hauptunterschiede 
zwischen einem CPC und seinem gro¬ 
ßen Bruder, dem PC? 

Natürlich der Prozessor und der viel 
größere Speicher. Auch die System¬ 


busbreiten von 8 und 16 Bit stehen sich 
da gegenüber. 

Der Hit schlechthin - MS-DOS 
auf dem CPC 

Hardwareseitig gibt es noch einige 
wichtige Eigenschaften zu beachten, 
die ein Computer haben muß. um kom¬ 
patibel zum IBM-PC zu sein. Dies sind 
zum Beispiel die In-Out-Adressen , mit 
denen Teile wie die Bildschirmkarte 
oder der Disc-Controller angesprochen 
werden. Die Grafik des CPC bringt ja 
keine Schwierigkeiten mit sich, da sie 
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CPC-Benutzer, der die Neuanschaf¬ 
fung eines PCs scheut, erschwinglich 
sein. Nach der CEBIT’91 werden wir 
den Emulator ausführlicher und mit 
endgültigen Preisangaben nochmals 
vorstellen. 

Preisgünstige Lösung 

Ist das Modul an den Expansionsport 
angeschlossen und der CPC einge¬ 
schaltet, haben Sie einen vollwertigen 
PC-XT vor sich, der sich mit dem Fir¬ 
mennamen des ROM-BIOS-Herstel- 
lers AMI meldet. Mit dem Einlegen 
der mitgelieferten Systemdiskette von 
MS-DOS 4.01 (3 Zoll) und dem 
Drücken einer Taste wird das im Preis 
inbegriffene PC-Betriebssystem ge¬ 
laden. 

Nun kann die gesamte Softwarepalette, 
die auch auf einem PC-XT lauffähig 
ist, abgearbeitet werden. Nützlich da¬ 
für ist ein Zweitlaufwerk im 5,25-Zoll- 
Format. Probleme treten nur bei eini- 



Bild l: MS-DOS auj dem CPC — jetzt endlich möglich 


gen Spielen auf, die direkte Hardware¬ 
zugriffe benutzen. 

Aus CPC mach* XT 

Sie warten bestimmt schon gespannt 
auf eine Erklärung, wie das eigentlich 
alles realisiert wurde. Als Prozessor 
kam natürlich, auf Grund des 8-Bit- 
Busses des CPC, nur der 8088 in Fra¬ 
ge. Er besitzt einen eigenen Taktgene¬ 
rator und funktioniert damit unabhän¬ 
gig vom CPC-System. Die beiden Pro¬ 
zessoren arbeiten somit gleichzeitig, da 
jeder auch seinen eigenständigen Bus 


hat und das jeweilige RAM vollständig 
ausnutzt. Somit stehen insgesamt 768 
kByte RAM zur Verfügung. 

Eine Verbindung besteht nur über die 
Ein- und Ausgabeanweisungen. Der 
CPC übernimmt die Aufgabe der Si¬ 
mulation einer IBM-PC-Umgebung. 
IN/OUT-Anweisungen werden so 
“umgebogen“, daß sie den richtigen 
Port im CPC ansprechen. Die Arbeit 
unterscheidet sich für den 8088 in 
nichts von der im “echten“ PC, wes¬ 
halb MS-DOS auch ohne Einschrän¬ 
kungen funktioniert. 


Durch die Elektronik werden auftre¬ 
tende Zeitprobleme zwischen dem 
schnelleren 8088-Prozcssor und dem 
langsameren Z80 im CPC durch die 
Bildung von WAIT-Signalen kompen¬ 
siert. Die Abarbeitung der Befehle 
wird so lange gestoppt, bis der CPC 
seine jeweils notwendigen Routinen, 
die zur Weiterarbeit des 8088 erforder¬ 
lich sind, beendet hat. Dazu zählen 
zum Beispiel die IN- beziehungsweise 
Out-Anweisungen. 

Ist kein Wartezyklus erforderlich, ist 
die Parallelität voll gewährleistet. 
Durch diese Kooperation entsteht eine 



minimale zeitliche Belastung, und das 
System arbeitet mit 95 Prozent der 
Echtzeit eines 4,7-MHz-Rechners. 
Dieser Wert wurde unter Zuhilfenah¬ 
me eines Benchmark-Testes ermittelt. 

Der CPC-PC ist recht 


Bild 2: Die Hardware wird am Expansion-Port angeschlossen 


Mit diesem Hardware-Zusatz erfährt 
der CPC eine neue Dimension. Für sei¬ 
ne Anwender ist es nun ohne großen fi¬ 
nanziellen Aufwand möglich, unter 
MS-DOS zu arbeiten. Damit wird all 
denen recht gegeben, die bis jetzt auf 
das zukunftsorientierte Konzept des 
CPC gesetzt haben. 

Selbst solche Anwender, die kein 
5,25-Zoll-Zweitlaufwerk verwenden, 
können in Datenaustausch mit einem 
PC treten, falls sie Zugang zu einem 
der neuen Amstrad-PC mit 3-Zoll- 
Laufwerk haben. 

(Jörg Gurowski/Thomas Kallay) 


4/5’91 PC 49 








[—Hardware 



Ein Nagetier 
für den CPC 

GEOS-Mouse 
am Joystick-Port 

Es gibt sie schon, die Maus für den CPC - sie ist aber 
nicht gerade preiswert. Eine Alternative, die wenig 
kostet und etwas technisches Geschick sowie elektroni¬ 
sches Wissen erfordert und zudem vollständig Joystick- 
kompatibel ist, möchten wir Ihnen hier vorstellen. 


Die hier vorzustellende Maus-Lösung 
für die CPCs benötigt lediglich drei 
CMOS-ICs (einen 40098, zwei 4066 
oder 4016), einen 9poligen SUB- 
D-Stecker und eine 9polige SUB- 
D-Buchse. Bei der Maus handelt es 
sich um die GEOS-Mouse vom 
C64-Hersteller Commodore, die etwa 
40, —' DM kostet und in den meisten 
Warenhäusern erhältlich ist. Eingriffe 
in die Hardware des CPC — gilt im 
übrigen für alle Modelle - sind eben¬ 
sowenig notwendig wie zusätzliche 
Software. 

Preiswerte Lösung 

Die GEOS-Mouse hat folgende An- 
schlußbelegung: 

1 auf 

2 ab 

3 links 

4 rechts 

5 nicht belegt 

6 Feuer 

7 Stromversorgung 

8 Masse 

9 nicht belegt 

Die Betriebsspannung für die GEOS- 
Mouse wird normalerweise über die 
Anschlüsse 7 und 8 eingespeist. Der 
CPC stellt am Joystick-Port eine solche 
Spannung nicht zur Verfügung. 

Daher muß die Betriebsspannung für 
die Maus entweder aus einer Flachbat¬ 
terie (4.5 V) oder aus dem CPC-Netz- 
teil eingeschliffen werden. Die Mouse 
legt, bei entsprechender Bewegung, 
ihre Ausgänge auf LOW-Pegel. Im Ru¬ 
hezustand haben also die Pins 1 bis 4 
HIGH-Pegel. Eine Ausnahme hiervon 
ist der PIN 6 (Feuer), der im Grundzu¬ 
stand ein offener Ausgang ist und nur 
bei Betätigung der Feuertaste an der 
Maus einen definierten LOW-Pegel er¬ 
hält. 


Im nichtgedrückten Zustand wird des¬ 
halb an dem IC 40098 ein über den Wi¬ 
derstand (etwa 180 kOhm) definiertes 
High Potential erzeugt. Aufgabe des IC 
40098 ist, den von der Maus erzeugten 
LOW-Pegel in einen HIGH-Pegel um¬ 
zuwandeln. Diese Umwandlung wird 
zur Ansteuerung der beiden ICs 4066 
.(4016 geht auch) benötigt. Beide ICs 
4066 bilden je vier analoge Schalter. 
Jeder Schalter ist einer Joystick-Rich¬ 
tung zugeordnet. Wird die Maus bei¬ 
spielsweise nach links bewegt, ist die 
Ausgangsspannung an den GEOS-Pins 
folgende: 

1 HIGH 

2 LOW 

3 LOW 

4 HIGH 
6 HIGH 

Das bedeutet, daß die elektronischen 
Schalter 2 und 3 des ersten IC 4066 ge¬ 


schlossen werden, während die restli¬ 
chen Schalter offenbleiben. Das heißt, 
daß der Widerstand in den Schaltern 
verändert wird. Damit erkennt der 
CPC eine normale Joystick-Bewegung. 
Der große Vorteil dieser Schaltung ist 
der extrem geringe Aufwand. 

Vollkompatibel zum Joystick 

So man beispielsweise mit Grafikpro- 
grammen auf dem CPC arbeiten will, 
was mit dieser Lösung einwandfrei 
funktioniert, hat man mit der Maus 
eine wesentlich komfortablere Bedie¬ 
nung der Software, da Zeichnen mit 
der Maus genauer ist als mit dem Joy¬ 
stick. 

Natürlich lassen sich mit der Maus 
Spiele, die an sich mit dem Joystick 
laufen, auch bedienen. 


(O. Matthäi/tk) 



Der Schaltplan für den Anschluß der GEOS-Mouse an den CEC 
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The CPC Connection 

Verbinden Sie zwei CPCs 
mit einem Kabel 

Gehört das Koppeln von Rechnern in der PC-Weit zum Alltag, war 
dies jedoch bisher bei den CPCs nicht üblich. Daß es aber nicht nur 
funktioniert, sondern auch viele Vorteile hat, wollen wir Ihnen diesmal 


aufzeigen. 

Eigentlich braucht man für das Verbin¬ 
den zweier Rechner — wie auch bei 
den PCs - nur ein dünnes Kabel und 
etwas Software - und natürlich zwei 
CPCs, wobei man beispielsweise auch 
einen 464 mit einem 6128 koppeln 
kann - einfach, nicht wahr? 

Nun, ernsthaft gesehen ist es natürlich 
nicht ganz so einfach, da die hier vor¬ 
gestellte Lösung einiges an Know-how 
benötigt. Hinzu kommt, daß die Daten¬ 
übertragungsgeschwindigkeit schließ¬ 
lich auch hoch genug sein sollte - sie 
entspricht dem “Tempo“ eines Disket¬ 
tenlaufwerks. 

Auf der Suche nach einer geeigneten 
Möglichkeit, zwei CPCs direkt mitein¬ 
ander zu verbinden, ergaben sich zwei 
Alternativen, wobei die zweite Lösung 
“den Zuschlag erhielt“: 


1. Der Joystickport 

Über den Joystick-Anschluß ist es 
möglich, 7 Bit einzulesen beziehungs¬ 
weise auszugeben. Diese Möglichkeit 
hat jedoch einige Nachteile. Zunächst 
einmal ist der Kabelaufwand kostspie¬ 
lig, der Joystick-Anschluß wäre stän¬ 
dig belegt (beispielsweise bei Spielen) 
und die Programmierung über den 
Soundchip 2 zudem relativ umständ¬ 
lich. 

2. Der Drucker-Port 

Über den Druckeranschluß ist die Rea¬ 
lisierung wesentlich einfacher, da sich 
mit einer Leitung 1 Bit einiesen 
(BUSY-Signal) und über eine der sie¬ 
ben Ausgabeleitungen 1 Bit ausgeben 
läßt. Der programmtechnische Auf¬ 
wand hält sich in Grenzen, und die 
Verbindung beschränkt sich auf die 


entsprechenden Stecker und ein zwei¬ 
adriges abgeschirmtes Kabel, die zu 
recht günstigen Preisen im Elektronik- 
geschäft zu kaufen sind. Den Schalt¬ 
plan sehen Sie in Bild 1. Die Abschir¬ 
mung des Kabels wird dabei als Masse¬ 
leitung verwendet. Die Kopplung hat 
übrigens auch mit einem 15 Meter lan¬ 
gem Kabel funktioniert. 

Die Software 

Der Grundbaustein der für die Rech¬ 
nerkopplung notwendigen Programme 
ist der Datalader, der das Programm 
TRANSMC erzeugt. Es enthält die 
Routinen zum Senden und Empfangen 
von Daten und muß an die Adresse 
&AED8 geladen werden. Für Assem¬ 
bler-Programmierer gelten folgende 
Einsprünge: 

&AED8: Datenblock empfangen 

hl = Ablageadresse 

de = Blocklänge 

&aedb : Datenblock senden 

hl = Startadresse 

de = Blocklänge 

Nach dem Aufruf gibt folgender Flag- 
Status Auskunft: 
z = Alles in Ordnung 
nz = Daten konnten noch nicht übertra¬ 
gen werden 

Unter den Programmen befindet sich 
ein Listing, das die Nutzung von 
TRANSMC auch für BASIC-Program- 
mierer zuläßt. Die nötigen Erläuterun¬ 
gen finden Sie im Listing als Remarks. 
Alle weiteren Listings stellen Anwen¬ 
dungsbeispiele dar: 

Filecopy 

Mit diesem Programm ist es möglich, 
einzelne Files zu übertragen. Der 
Quellcomputer muß dabei ein Disket¬ 
tenlaufwerk besitzen. Der Zielcompu¬ 
ter kann auch ein CPC 464 mit Kasset¬ 
tenlaufwerk sein. Aus diesem Grund 
wird auch vor dem Programmstart ab¬ 
gefragt, ob die Files mit oder ohne Ex¬ 
tension (“.BIN“, “.BAS“ und so wei¬ 
ter) gespeichert werden sollen. Beim 
Laden von Kassette ist es oftmals nötig, 
die Programme ohne Extension abge¬ 
speichert zu haben. Außerdem läßt sich 
die Sicherheitsabfrage vor dem Über¬ 
tragen beziehungsweise dem Abspei¬ 
chern abschalten. 

Die Auswahl der einzelnen Programm¬ 
dateien beim Quellcomputer geschieht 
über die Cursor-Tasten und <COPY >. 
Mit der Taste <D> läßt sich die Dis¬ 
kette auswechseln. 

Diskcopy 

Hiermit können Sie ganze Disketten 
übertragen. Wie bei Filecopy müssen 

Lesen Sie bitte weiter auf Seite 69 
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CPC-Anwendungen 

Die bewährten und praxiserprobten CPC-Anwendungsprogramme aus dem 
DMV-Verlag bringen Ihre CPC-Hardware richtig in Schwung: Sie erzielen 
hervorragende Ergebnisse in kürzester Zeit 


ConText CPC 

Professionelle Textverarbeitung 

für alle CPC 

Lassen Sie Ihren CPC nicht verstauben! Mit ConText 
CPC können Sie ein Anwendungsprogramm erwerben, 
das für Textverarbeitung eine überzeugende Leistung 
bei einfacher Bedienung bietet. Die ausführliche deut¬ 
sche Anleitung macht auch Computerlaien nach kürze¬ 
ster Zeit eine Textverarbeitung per Computer möglich! 


Mit ConText CPC macht das Schreiben richtig Spaß: 

• Einfügen, Fließtext, Blockformatierung und Kopieren auf 
Tastendruck • 25 KByte Textspeicher, ausreichend für min¬ 
destens fünf DIN-A4-Seiten • Mehrspaltige Texterstellung 
und Kopieren für besondere Aufgaben • Textblöcke von 
Diskette oder Kassette jederzeit im Text zu plazieren 

• Drucken im Hintergrund, während Sie weiter an Ihren 
Texten arbeiten • Echtbild-Darstellung der Schriftarten 
»Vergrößert« und »Unterstrichen« • In das Programm Con¬ 
Text CPC integrierter Taschenrechner und Kalender 

• Variable Druckeranpassung mit Einsteilmöglichkeit in 
Tabellenform 

ConText CPC # 

Hervorragend in Preis und Leistung dm 59,- 


Turbo-DATA-CPC 

Volldampf in der Dateiverwaltung 


Brauchen Sie ein neues Adreßbuch oder Telefonver¬ 
zeichnis? Müssen Sie Ihre Sammlungen von Briefmar¬ 
ken, Schallplatten, Dias oder anderen Schätzen sortie¬ 
ren? Alles kein Problem mit Turbo-DATA-CPC, der uni¬ 
versellen Dateiverwaltung für alle CPC mit Disketten¬ 
laufwerk, mit der Sie Überblick und Ordnung in Ihre 
Daten bringen. 

Datenverwaltung komplett mit Turbo-DATA-CPC: 

• Universell durch veränderbare Ein- und Ausgabemasken 

• Blitzschnelle Suchfunktionen durch Indexfelder 

• Dateikapazität bis maximal 80 verschiedene Felder 

• Bis zu 19 Felder gleichzeitig auf dem Bildschirm sichtbar 

• Besonders schnelle und umfangreiche Sortierfunktion 

• Eigene Formatierroutine mit extrem hoher Kapazität 

• Zweiteilung des Bildschirms in Status- und Arbeitsfeld 

• Komplette Druckroutinen, auch für Etikettendruck 

Turbo-DATA-CPC 

Immer die richtige Wahl dm 69,- 


CopyShop 

Das universelle Hardcopy-Programm 

für alle CPC 

Wollen Sie Ihre traumhaft schöne Fraktalgrafik im 
Freundeskreis zeigen, oder brauchen Sie zu Ihrem 
selbstgeschriebenen Programm einen Ausdruck? 

Mit CopyShop bringen Sie alle Bildschirmansichten zu 
Papier, auch mit den exotischsten Druckern. Ein Show- 
Modus zeigt Ihnen die Hardcopy vor dem endgültigen 
Ausdruck auf dem Bildschirm! 


Mit CopyShop Hardcopies immer und überall: 

• Vier Formate in allen drei CPC-Modi mit automatischer 
Erkennung • In das Programm integrierter Grafikeditor mit 
Füllfunktion • 32 Farbraster wählbar über komfortable Pull- 
down-Menüs • Beliebige Ausschnittsvergrößerungen mit 
Invertierungsfunktion • Drucker-Anpaßmenü für alle Ep¬ 
son- und Seikosha-Drucker# Anpassung auch an gedrehte 
Bitbild-Bytes, z.B. an NEC P2 • Freezer auch für Hard¬ 
copies aus laufenden Basic-Programmen • selbstrelozie- 
rende Hardcopy-Routinen für eigene Programme 

CopyShop 

Das ultimative Hardcopy-Programm dm 49,- * 


CPC Special Öfter 2 

Vier Programme im Paket-Sonderpreis 

Ob Bildschirmgrafiken, Sprite-Animation, Disketten¬ 
monitor oder eine Diskettenverwaltung - im Special 
Öfter 2 für alle CPC ist für jeden etwas dabei: 

DISKSORT-STAR 

Leistungsstarke Diskettenverwaltung mit hohem Bedienungskomfort und integriertem 
Diskettenmanager. Verwaltung. Archivierung, Katalogisierung Ihrer Disketten und Aus¬ 
druck der Daten - mit Disksort-Star kein Problem. 


DESIGNER-STAR 

Grafikprogramm zum komfortablen Erstellen von Bildschirmgrafiken Zur Bedienung ist 
ein Joystick oder eine Maus nicht notwendig Aut Tastendruck werden Sie mit Hiltsmenüs 
durch das Programm geführt. 


CREATOR-STAR „ , „ . 

Erstellen Sie eigene Trickfilme auf Ihrem CPC - mit einem Kulissen- und Sprite-Designer 
sowie beliebigen Lautschriften. In einer eigenen Programmiersprache mit Editor und 
Compiler können Sprites verbunden und Kulissen überemandergelegt werden. 


Professionelle CPC-Programmierung mit Assembler, Disassembler und Monitor Das 
System besitzt einen eigenen Diskettenmonitor und Editor, eine Trace-Funktion. kann 
Breakpoints setzen und Bankswitching vornehmen. 

CPC Special Öfter 2 

Für CPC-Profis dm 59,- * 












CPC-Basic 


Mit dem FAst-BAsic-COMpiler aus dem DMV-Ver- 
lag nutzen Sie Ihr spezielles Schneider-Basic optimal aus! 


FAst BAsic COMpiler 

Der Turbo-Antrieb für Ihre 
Basic-Programme! 


Haben Sie sich schon immer gewünscht, daß Ihre Ba¬ 
sic-Programme auf dem CPC schneller laufen? Mit dem 
FABACOM-Basic-Compiler wird dies zur Wirklichkeit: 
Compilierte Basic-Programme brauchen weniger Platz 
und laufen schneller ab. 


Schnelle Programme durch FABACOM: 

• Voller Sprachumfang von CPC-Basic 1.1 (664/6128) 

• Die compilierten Programme sind auf jedem 
CPC lauffähig 

• Separate Compilierung von Programm¬ 
teilen für Nachladeprogramme 

• Fast alle Befehle von CPC-Basic 1.1 auch 
für CPC 464 

• Unterstützung von Integer- und Fließkom¬ 
ma-Arithmetik 


FABACOM - 

schnell durch Compilierung 


DM 49,- 


FAst BA 





BASIC-Compiler für CPC 464/664/6128 

Der Turbo-Antrieb für Ihre BASIC-Programme! 






























Das Software-Experiment 

Spielend den CPC beherrschen lernen 


Nehmen Sie teil am Abenteuer "Computer"! In zehn 
lebendig und leicht verständlich geschilderten Reisen 
in die Welt der Computergrafik, Simulation und künst¬ 
lichen Intelligenz erarbeitet der Autor mit Ihnen zusam¬ 
men insgesamt 17 interessante Programme, die Sie auf 
Diskette erhalten. 

Das umfangreiche, 180seitige Handbuch vermittelt 
Ihnen auf anschauliche und unterhaltsame Weise, wie 
aus Algorithmen Datenstrukturen und letztendlich 
Software entstehen: von der Idee zum Programm - der 
ideale Kursus zum Einstieg in das Computerwissen, für 
Hobby und Schuluntericht. Sehen Sie selbst, zu wel¬ 
chen phantastischen Grafiken und verblüffenden Intel¬ 
ligenzleistungen der CPC bei raffinierter Programmie¬ 
rung fähig ist! 

Word master 

Sie raten ein Wort, das sich der Computer ausgedacht hat. 
Dann rät der Rechner ein Wort, das Sie sich ausgedacht 
haben. Wer braucht weniger Versuche? Sie werden sich 
wundern... 

Komplexe Grafik 

Sie lernen die mathematischen Grundlagen von Fraktalgrafi- 
ken und erarbeiten einen kompletten Fraktalgenerator zur 
Erzeugung von "Apfelmänn- 
chen"-Bildern. 

Das Spiel des Lebens 

Nach natürlichen Prinzipien des Wachstums erzeugt der 
Computer phantastische, kristallförmige Farbstrukturen. 
Ändern Sie die Regeln und Voraussetzungen, und sehen 
Sie, was für neue, noch nie dagewesene Formen sich 
ergeben. 

Mit roher 
Rechengewalt 

Mit dem "Brute- 
Force"-Algorith- 
mus darf der 
CPC so richtig 
loslegen und 
spielt mit roher 
Rechengewalt in 
dem afrikani¬ 
schen Strategie¬ 
spiel "Kalaha" al¬ 
le Gegner an die 
Wand - oder kön¬ 
nen Sie ihn trotz¬ 
dem schlagen? 


Entwicklungshilfe 

Eine gut ausgestaltete Simulation versetzt Sie in die Lage 
eines Entwicklungshelfers, der eine Hungersnot abzuwen¬ 
den versucht. Aber Ihre Mittel sind begrenzt... 


Der Computer 
als Stratege 

Ein raffiniertes 
System von 
Spielzugbewer 
tungen macht 
den CPC zu ei¬ 
nem fast un¬ 
schlagbaren 
Gegner im Go- 
bang-Spiel, der 
Ihnen anfangs 
saftige Niederlagen bescheren wird. Keine Angst - das 
Programm ist zu schlagen - aber wie, das müssen Sie 
selbst herausfinden. 

Der Computer lernt 

Erleben Sie ein Paradebeispiel für "Künstliche Intelligenz": 
Das Programm "Minischach" ist lernfähig und wird mit jeder 
Partie ein bißchen besser. 

Das Ökologie- 
Experiment 

Der Computer 
zeigt Ihnen in 
animierter Farb¬ 
grafik einen si¬ 
mulierten Le¬ 
bensraum mit 
Weideland, 
Schafen und 
Wölfen. Erfor¬ 
schen Sie die 
ökologischen Gesetzmäßigkeiten, und schaffen Sie ein 
stabiles, natürliches Gleichgewicht. 

Word ketten 

Mit einem raffinierten Algorithmus löst der CPC Wortketten- 
Rätsel. Oder er erfindet neue Rätsel - ganz wie Sie wollen. 

Pascal läßt grü¬ 
ßen 

Ein erstaunli¬ 
ches Programm 
enthüllt verbor¬ 
gene Strukturen 
im sogenannten 
"Pascalschen 
Dreieck". Die 
grafische Dar¬ 
stellung ergibt 
traumhaft schö¬ 
ne und farbige 
Musterbilder. 


Das Software-Experiment 

Siebzehn verschiedene, lauffähige Programme 
180 Seiten Anleitung und Erklärung 
Diskette nur dm 39,-* 
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CPC-Spiele 

Zu unglaublichen Preisen! 


Know CPC 

Interessantes Frage- und Antwortspiel für die 
ganze Familie DM 29,-* 


StarTest 

Aktion-Adventure für alle CPCs DM 19,-^ 


CYRUS II Schach^ 

Das bewährte Schachprogr^f^jK|it 3D-Display, einstell¬ 
barer Spielstärke und deutscher H^ÄStfiungsanleitung 

Kassette DM 10 r* 


Fantastic Four 

Vier Superprogramme zum Minipreis 

Cockaigne - Weltraum-Aktion 


Faszination in 3D 

Zwei Super-Aktion-Spiele inklusive 
3D-Brille 


3D-LightCycle 

Das bekannte und beliebte 
TRON-Spiel für zwei Personen 
jetzt wie im Film! Erleben Sie die¬ 
ses spannende und abwechs¬ 
lungsreiche Aktionsspiel jetzt in 
einer neuen Dimension. Verblüf¬ 
fende und noch nie dagewesene 
3D-Effekte zusammen mit einem 
professionellen Sound lassen 
Sie in eine völlig neue CPC-Welt 
versinken. Diesen Super-Hit 
man live gesehen haben. 


Das beste Labyrinthspiel jetzt in 
Super-3D-Qualität. Auf der Su¬ 
che nach Hinweisen zum Passwort, das den 
mächtigen Zentralcomputer lahmlegen kann, lau¬ 
ern tausend Gefahren auf Sie. Räumlich perfekte 
3D-DarsteJlung, extrem schneller Grafikaufbau 
und viele Überraschungen garantieren eine völlig 
neue Art von Spielvergnügen. 

FüralleCPC464.664.6128 mil Farbmonitor. Das Spiel 3D-LightCycle 
kann in 2D-Darstellung auch auf Grünmonitor gespielt werden. 


DM 39,“ 


Game Box 3 

Für jeden das Richtige - vier ausgesuchte 
Top-Spiele für CPC 

Alphajet - Weltraum- 
Aktionsspiel mit außer¬ 
gewöhnlicher Grafik und 
tollen Effekten 

Telefomania - 

Interessantes Science- 
Fiction-Spiel mit völlig 
neuer Spielidee 


Kampf den Insekten 

Erlebnisreiches 
Geschicklichkeitsspiel 
mit Überraschungen 


Terranaut I - Science-Fiction 


Fruits - Geschicklichkeit 

Terranaut II - Textadventure dm 29,-* 


Special Öfters III 

Neun interessante Spiele für alle CPCs 
2 Disketten, dm 39,-* 


Funbouncer - schnelles 
und farbenfrohes 
Aktions-Spiel mit 
eigenem Bild- 
Konstruktion s- Ed itor 


DM 29,-* 






























CPC-Einzelhefte 1989 




CPC-Sammelpack 

Solange unser Vorrat reicht, können Sie mit Einzelhef¬ 
ten und günstigen Paket-Angeboten Ihre Sammlung 
der Amstrad International vervollständigen - 
mit Wissen, das heute noch genauso wertvoll ist wie 
damals. 

Einzelhefte 1989 

pro Ausgabe dm 6,50 

Sammelpack 1988 

12 Ausgaben PC Amstrad International 
1/88 bis 11/88 und 1/89 dm 39,-* 
















Mitentscheiden • Mitgestalten 



Helfen Sie mit, 
die Zukunft der 


PC Amstrad 
International 

zu planen! 




Software 

für 

CPC und PCW Joyce 

erwerben Sie im 

Bestei Iservice 
preisgünstig 

und 

schnell 


Ja, ich möchte meine ganz persönliche PC Amstrad auch weiterhin beziehen. 
Die für mich interessante Bezugsform ist 

□ PC Amstrad in gewohnter Qualität im Abonnement für ca._Monate. 

□ PC Amstrad in gewohnter Qualität im Abonnement inklusive Diskette/ 
Kassette. 

□ PC Amstrad in gewohnter Qualität als Diskettenzeitschrift. 

Mein Computersystem ist: 

□ CPC 464/664/6218 

□ Joyce/PCW 

□ PC 

Mit der Beantwortung dieser Fragen gehe ich keinerlei Verpflichtung ein. Diese 
Informationen dienen lediglich dem DMV-Verlag zur Planung der weiteren Er¬ 
scheinungsweise von PC Amstrad International. 


Einzelhefte und DATABOX 


Sonderheft und DATABOX 


Einzelhaft 

Ausgabe 

6,- DM/Stck 

CPC 
Kassette 
14,- DM/Stck. 

CPC 

3"-Diskette 
24,- DM/Sick. 

Joyce 
3“-Diskette 
24,- DM/Stck. 

PC 1512 
51/4“-Dlsket!e 
24,- DM/Stck. 

CPC-Sonderheft 
DM 14,- 

DATABOX 

3-Zoll-Diskette 

Kombipack 

Sonderheft + DATABOX 
3-ZolI-Diskette DM29,- 

187 bis 11 '88 
(BHie «intragen) 

□ 





□ 309 Nr. 3/86 

□ 319 DM 29,- 

□ 3044 

_ 

□ 

□ 

□ 

□ 311 Nr. 5/87 

□ 334 DM 38.- 

□ 3045 

□ 

- 

□ 

□ 

□ 

□ 312 Nr. 6/88 

□ 340 DM 38, - 

□ 3046 

□ 1'89 


□ 

U 

□ 



□ 3047 

□ 2'89 

- 

□ 

□ 

□ 



□ 3'89 

- 

□ 

□ 

□ 

□ 3136 Nr. 8/89 

□ 3142 DM 38, - 

C 3048 

□ 4'89 

- 

□ 

□ 

□ 




□ 5’89 

- 

□ 

□ 

□ 




□ 6'89 

□ 

□ 

□ 

□ 




□ 7’89 

□ 

□ 

□ 

□ 




□ 8'89 

□ 

□ 

□ 

□ 




□ 9'89 

□ 

□ 

□ 

□ 

.. „ ... ....... r* 



□ 10’89 

□ 

□ 

□ 

□ 


□ 11'89 

□ 

□ 

□ 

□ 

5 Stck. CPC-Sonderhefte 3, 5. 6, 7, 8 

□ 12'89 

□ 

□ 

□ 

□ 



DM 35, - 

□ 1 '90 

□ 

□ 

□ 

□ 



□ 2’90 

□ 

□ 

□ 

□ 




□ 3'90 

□ 

□ 

□ 

□ 




□ 4'90 

□ 

□ 

□ 

□ 




□ 5'90 

□ 

□ 

□ 

_ 

□ Best.-Nr. 3042 Sammelpack 1988 

12 Ausgaben PC Amstrad International 

□ 6/7'90 

- 

□ 

□ 

_ 

□ 8/9'90 

- 

□ 

□ 

- 

□ IO/H'90 

□ 

□ 

□ 

_ 



DM39,- 

□ 12/1'90/91 

□ 

□ 

□ 

_ 




□ 2/3'91 

□ 

□ 

□ 

- 




□ 3/4'91 

□ 

□ 

□ 

- 





+ Porto/Verpackung 
(Inland 4,- DM, Ausland 6,- 


DM) 


DM Gesamtbetrag: 


DM 


CPC-Bestellservice 


Joyce-Bestellservice 


3“-Diskette 

Kassette 

DM 

3“-Diskette 

Joyce-Software DM 

□ 

207 

- 

ConText CPC, Textverarbeitung 59,- 

□ 

215 

Volume 1, Charakter-Designer 49,- 

□ 

202 

- 

CopyShop, Hardcopy-Programm 49, - 

□ 

216 

Volume 2, Dateiverwaltung 49, - 

□ 

214 

_ 

Turbo Data CPC 

69,- 

□ 

217 

Volume 3, GSXplot 59,- 






□ 

219 

Volume 4, Bild-Editor 49,- 

□ 

205 

- 

Special Öfter 2 

59,- 

□ 

220 

Volume 5, Datenbank 69, - 

□ 

213 

- 

Software-Experiment 

39,- 

□ 

221 

Volume 6, Tabellenkalkulation 59,- 

□ 

209 

- 

FaBaCom, Basic-Compiler 

49,- 

□ 

222 

Volume 7, Grafische Benutzeroberfläche 








69,- 

□ 

104 

- 

Startest 

19,- 




□ 

1011 

_ 

Fantastic Four, Spielesammlung 



Joyce-Sonderheft-Pakete 





29,- 

□ 

3050 

Sonderheft 2 + DATABOX, 2 Disketten 3“ 29, - 

□ 

107 

_ 

Special Öfter 3, Spielesammlung 

□ 

3051 

Sonderheft 3 + DATABOX, 2 Disketten 3“ 29, - 





39,- 

□ 

3052 

Sonderheft 4 + DATABOX, 2 Disketten 3“ 29, - 

□ 

1369 

- 

Faszination 3D 

39,- 



Joyce-Bücher 

□ 

1012 

- 

Game-Box III 

29,- 

□ 

406 

Joyce - mehr als ein Textsystem 








+ DATABOX, Diskette 3" 49, - 

□ 

106 

— 

Know CPC 

29,- 









□ 

401 

Praktische Textverarbeitung mit Joyce 

□ 

211 

- 

Fraktal Generator 3D CPC 

49,- 



+ DATABOX, Diskette 3" 49, - 


+ Porto/Verpackung 

(imand 4.- dm, Ausland 6.- dm) _DM Gesamtbetrag: = ^^ ============== DM 




































































































Name 


Straße/Postfach 


PLZ/ORT 



Ja, 


ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte, Bitte liefern Sie an folgende Anschrift: 


Name 


Straße/Postfach 


PLZ/ORT 

□ Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur Innerhalb der BRD), 


Datum Unterschrift (bei Minderjährigen des gesetzlichen Vertreters) 



CPC-/PCW-Joyce-Bestellservlce 

Ja, ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewähiten Produkte. Bitte liefern Sie an folgende Anschrift: 


Name 


Straße/Postfach 


PLZ/ORT 

□ Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


1 , Entscheiden ) 


Sie sind treuer Leser der PC 
Amstrad International und wol¬ 
len auch in Zukunft nicht auf 
Informationen zu Ihrem Com¬ 
puter, Tips und Tricks und die 
gute Software verzichten. 

Die Entscheidung darüber, in 
welcher Form die Zeitschrift 
weiterbesteht, liegt auch in Ih¬ 
ren Händen. Beteiligen Sie 
sich an umserer Umfrage - 
Ihre Meinung ist uns wichtig. 



PC-Amstrad-Leser sind immer 
top-informiert. Daher sollte Ihnen 
kein Heft oder Sonderheft in Ihrer 
Sammlung fehlen. Das Eintippen 
von Listings und Programmen er¬ 
sparen Sie sich durch unseren 
günstigen DATABOX-Service. Im¬ 
mer gut beraten sind Sie mit PC 
Amstrad 


• Sonderheften 


• DATABOXEN 


• Sammelpacks 

Zur Erinnerung: 

Meine Hefte, Sonderhefte und DATA¬ 
BOXEN wurden bestellt am 



1 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


3 ■ Bestellen J!l 1 

Die Power-Software von PC Am- 1 
strad für CPC und PCW Joyce ist 1 
unter Kennern bereits ein Begriff, I 
und unser Sortiment wird Monat 1 
für Monat gepflegt und erweitert. 
Und vergessen Sie nicht: Soft- 1 
wäre von PC Amstrad ist auch ein 1 
Geschenk, das ankommt. Nutzen 
auch Sie die Vorteile von PC- 
Amstrad-Software 

• preisgünstig 


• bewährt 

• praxisgetestet 

Zur Erinnerung: 

Meine CPC- und PCW-Joyce-Soft- 
ware wurde bestellt am 


1 

: 


( 


Unterschrift (bei Minderjährigen dos geeetzllchen Verlrolers) 



Dalum 



































































Zum Sammeln 
unentbehrlich 



PC- 

Software 


Versandservice 

• leistungsstark 

• praxisbewährt 

• preisbewußt 




I N T MTN A T I 0 N A L 

■MMR 


Kleinanzeige 

Eine Gelegenheitsanzeige in unserem 
Kleinanzeigen-Markt macht sich immer be¬ 
zahlt, ob Sie tauschen, verkaufen oder er¬ 
werben wollen! 

Und so wird's gemacht: 

Kreuzen Sie bitte an. in welcher Rubrik Ihre An¬ 
zeige erscheinen soll und ob Sie privat oder ge¬ 
werblich ist. Dann schreiben Sie Ihren Text so 
In das vorgezeichnete Feld, daß jeder Buchsta¬ 
be, jedes Satzzeichen oder jeder Wortzwischen¬ 
raum ein markiertes Kästchen ausfüllt. Jetzt 
brauchen Sie nur noch die Zeilen zu zählen, den 
Preis zu berechnen, einen Verrechnungsscheck 
auszufüllen, und fertig ist Ihre Gelegenheits¬ 
anzeige. 

Bitte beachten Siel 

Aus verwaltungstechnischen Gründen kann der 
Abdruck Ihrer Kleinanzeige nur gegen Vorkasse 
erfolgen. 


Sonderhefte • Sammelordner • Demonstrationen 


Ausgabe DATABOX 

DOS EXTRA 2 Stk. 5 1/4“-Disk 1 Stk. 3 1/2“-Dlsk 


DM 18.- 

DM 35, - 

DM 35,- 

□ 356 Nr. 3 

□ 357 

□ 358 

□ 381 Nr. 4 

□ 3811 

□ 3812 

□ 382 Nr. 5 

□ 3813 

□ 3814 

□ 383 Nr. 6 

□ 3815 

□ 3816 

□ 384 Nr. 7 

□ 3817 

□ 3818 

□ 385 Nr. 8 

□ 3819 

□ 3820 

□ 386 Nr. 9 

□ 3821 

□ 3822 

□ 387 Nr. 10 

□ 3823 

□ 3824 

□ 388 Nr. 11 

□ 3825 

□ 3826 

□ 389 Nr. 12 

□ 3827 

□ 3828 

□ 391 Nr. 13 



□ 392 Nr. 14 

□ 3829 

□ 3830 

Pascal 

Sonderdruck 

□ 346 

□ 347 

DMV-Computer- 
wissen Band 1 

□ 3512 

□ 3513 

DOS- 

Taschenbücher 

5 1/4‘-Diskette 

DM 24, - 

3 1/2“-Diskette 

DM 24, - 

BAND 1 

□ 60501 

□ 60502 

BAND 3 

□ 60521 

□ 60522 

BAND 4 

□ 60531 

□ 60532 


Best.-Nr. 


DM 


□ 

60500 

DOS-Taschenbuch Band 1 

29,80 

□ 

60510 

DOS-Taschenbuch Band 2 

29,80 

□ 

60520 

DOS-Taschenbuch Band 3 

29,80 

□ 

60530 

DOS-Taschenbuch Band 4 

29,80 

□ 

402 

Die Basic2-Toolbox 

49,- 

□ 

403 

Die Basic2-Toolbox, 51/4"-Diskette zum Buch 

29,- 

□ 

345 

PASCAL Sonderdruck 

25,- 

□ 

3511 

DMV-Computer-Wissen, Band 1, Basic-Toolbox 18, - 

□ 

482 

QuickStart ConText PRO 

19,80 


Sammelordner 


□ 530 DOS 

□ 534 toolbox 

□ 536 DOS TEST 


2 Stk. 15,80 

□ 531 PC International 

□ 535 PCpur 

□ 537 AMIGA DOS 


Zwischensumme + Porto und Verpackung 
(Inland 4, - DM. Ausland 6, - DM)_ 


Demodisketten _ jeweils DM 5, - 


□ 001 Fraktal 3D + MaskEdit 

□ 005 ConText PRO 

□ 008 DMV-Show-Manager 

□ 012 GraphBas PC 


□ 003 ERGO 3.0 
C 007 3D-Draw 
G 009 Navigator 


Gesamtbetrag: 


DM 


PC-Software 


5 '/4“ 

3 Vz“ 

DM 

2282 

□ 

2281 □ 

ConText EASY, 


99,- 

2407 

□ 

2406 □ 

ConText PRO, 


199,- 

2415 

□ 

2416 □ 

ConText-ADREVA 


49.- 

2419 

n 

2420 P 

ConText-Zelchenedltor 


99,- 

2421 

□ 

2422 ) 

ConToxt-RechfHchrolbhllfe 

69,- 

2650 

□ 

2651 

DMV-Powar-Pack 


349,- 

256 

u 

257 

PC-VIrusDoktor 


99,- 

2903 

□ 

2904 _ 

PC-VIrusFlnder 


149,- 

2905 

□ 

2906 

GraphBas PC. Turbo Basic 


99,- 

2907 

n 

2908 Z 

GraphBos PC, Mlcrosoll Quick Basic 

99,- 

2522 

□ 

2521 C 

ERGO 3.0, DOS-Benulzerobertläche 

199,- 

2702 

□ 

2703 C 

DMV-Show-Manager 


199,- 

236 

□ 

239 a 

MaskEdit Plus mit einem Treiber 

99,- 

2613 

□ 

2614 D 

MaskEdit Plus, Pakei mH zwei Treibern 

149,- 

2621 

□ 

2622 □ 

MaskEdit Plus, Pakei mit drei Troiborn 

199,- 

Turbo 

Turbo C Top-Speed 

Turbo 

Quick 

Pascal 3/4/5 Microsoft C Modula-2 

Basic 

Basic 


2632 

: 2633 2634 

□ 2635 

G 2636 

2720 

□ 

2721 □ 

WlnBasIc 


299.- 

227 

G 

233 □ 

BCI DlsAsm/186, (MS-DOS) 


199.- 

6001 

□ 

6002 □ 

RSM-Manager 


69.- 

6007 

□ 

6008 □ 

3D-Draw. Version 1.0 


99.- 

6017 

□ 

6018 □ 

3D-Draw Professional 


199.- 

6019 

Q 

6020 □ 

Navigator 4.S 


69.- 

6025 

U 

6026 □ 

Llghtnlng 3D. 1.3 


199.- 

6027 

□ 

6028 □ 

DOS-CAD 3.0 


199,- 

2700 

□ 

2701 □ 

DMV-Faktura 


398.- 

2710 

□ 

2711 □ 

DMV-Ateller 


249.- 

2712 

□ 

2713 □ 

DMV-Ateller Zusalzlonls 


99,- 

2714 

□ 

2715 U 

DMV-Ateller Symbole 


99.- 


+ Porto/Verpackung 

(Inland 4,- DM. Ausland 6.- DM) _ DM 


5 V 4 “ 

3 V*" 

DM 

20506 □ 

20507 □ 

PC-Software pur, Festplatten-Optimieror 

69.- 

20508 □ 

20509 O 

PC-Software pur, MasterDal Datenbank 

69,- 

20510 □ 

20511 3 

PC-Software pur, MS-DOS Lemprogramm 

69.- 

2804 D 

2805 

toolbox Spezial II, PASCOMP 

35,- 

2808 D 

2809 

toolbox Spezial IV, CALC 

35,- 

2815 □ 

2818 

toolbox Spezial VII, dl. Silbentrennung 

35,- 

2819 □ 

2820 Z 

toolbox Spezial IX, HPGL-Plolter 

35,- 

2823 ü 

2824 C 

toolbox Spezial XI, MAP, MARK S RELEASE 

33,- 

2827 3 

2828 C 

toolbox Spezial XIII, Trickkiste Vol l 

33,- 

2829 3 

2830 □ 

toolbox Spezial XIV, Trickkiste Vol.2 

35,- 

2831 □ 

2832 Q 

toolbox Spezial XV, Fitting & Lin.-Glel 

35,- 

2833 O 

2834 Q 

toolbox Spezial XVI, nat.-sprachl. Schnittst, 

35,- 

2835 

2836 1 1 

toolbox Spazlal XVII, EMS-Spslcher SolWare 

35,- 

2837 l 

2838 □ 

toolbox Spezial XVIII, Alkane Klassihzieiung 

35,- 

2839 1 _ 

2840 P 

toolbox Spezial XIX, Grill 4 Spfctotcramtau; 

35,- 

2361 l_ 

2362 P 

MAUSALL Plus 

35,- 

1371 □ 

1372 P 

PC-Splelo-Samplor 

49,- 

248 □ 

249 P 

Fruktal-Gonerator 3D. MS-DOS 

69,- 

1374 □ 

_ 

Populous PC 

69,95 

1375 □ 

1376 P 

Bards Tale II 

39,95 

1377 □ 

1378 P 

Starfllght II 

49.95 

1379 □ 

1360 □ 

Indianapolis 500 

49,95 

1381 □ 

1382 D 

Oll Imperium 

39,95 

1363 □ 

1384 3 

Loom 

69,95 

1365 □ 

1386 Z 

Zak McKracken 

69.95 

1387 □ 

1388 3 

Manlac Manslon 

69,95 

1389 P 


Jot Pack 

169,- 

1401 □ 

__ 

Digl-Joy 

59,- 

1295 □ 

1296 C 

Memo 

69.- 

1297 □ 

1298 Q 

Tradema8ter 

49,- 


Gesamtbetrag: DM 


|__Kleinanzeigen-Markt_ 

Private Anzeigen: Nur DM 5, - je angefangene Zeile. 

Geschäftliche Empfehlungen: DM 8.- je angefangene Zelle, zzgl. gesetzlicher Mehrwertsteuer. 

Bitte veröffentlichen Sie meine Anzeige in der nächsterreichbaren PC Amstrad für 

□ private Zwecke □ gewerbliche Zwecke (gewerbliche Anzeigen werden mit G gekennzeichnet) 

Das Ist der Text: (Bitte deutlich in Druckbuchstaben schreiben!) 
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1 I 

LU 

1 1 
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1 

1 1 1 

1 1 1 1 1 







1 

l l 1 







IMII 



| 

1 1 1 1 

U 


□ Die Anzeige soll als Chiffre-Anzeige erscheinen (nur bei Privat-Anzeige). Chiffre-Gebühr 10,- DM inkl. MwSt. zzgl. zum Anzeigenpreis. 
In dieser Rubrik: 

□ Biete an □ Suche □ Tausch □ Stellenmarkt/freie Mitarbeit 

□ Hardware □ Hardware □ Geschäftsverbindungen 

□ Software □ Software □ Verschiedenes 






















































































































PC- 

Sonderhefte 

J 3 , ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 

Name 

Straße/Postfach 

PLZ/ORT 

□ Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur innerhalb der BRD). 

Datum Unterschritt (bei Minderjährigen des gesetzlichen Vertreters) 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 


PC- 

Software 


Ja, 


ich mache von Ihrem Angebot Gebrauch und bestelle die umseitig 
ausgewählten Produkte. Bitte liefern Sie an folgende Anschrift: 


Antwortkarte 


Name 


Straße/Postfach 


PLZ/ORT 

□ Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 

□ Ich bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
(nur Innerhalb der BRD). 


Datum Unterschrift (bei Minderjährigen des gesetzlichen Vertreters) 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 



Kleinanzeige 

Bei Angeboten: 

Ich bestätige, daß ich alle Rechte an 
den angebotenen Waren besitze. 


Name 


Straße/Postfach 


PLZ/ORT 

□ Den Betrag bezahle ich mit dem beigefügten Verrechnungsscheck. 

Datum Unterschritt (bei Minderjährigen des gesetzlichen Vertreters) 


Bitte 

ausreichend 

frankieren 


Antwortkarte 


DMV-Verlag 
PC International 
Postfach 250 

3440 Eschwege 



DOS-Taschenbücher und DOS- 
EXTRA-Sonderhefte sind eine zu¬ 
verlässige Informationsquelle für 
jeden PC-Besitzer. Nutzen auch 
Sie dieses Wissen, und vertiefen 
Sie es mit den dazu angebotenen 
Programmen aus dem DATA- 
BOX-Service. Den PC beherr¬ 
schen mit 

• DOS-EXTRA-Sonderheften 

• DOS-Taschenbüchern 

• DOS-DATABOX-Service 

Zur Erinnerung: 

Meine DOS-Sonderhefte, DOS- 
Taschenbücher, DOS-DATABOX 
wurden bestellt am 



PC-Software vom DMV-Verlag ist 
unter Kennern bereits ein Begriff 
und auch ein gutes Angebot für 
Sie, Ihren PC mit starken und an¬ 
wendergerechten Applikationen 
auszustatten. Vom der Textverar¬ 
beitung bis zum Programmiersy¬ 
stem, beim DMV-Versandservice 
kaufen Sie günstig ein. Den PC 
konsequent nutzen mit PC-Soft- 
ware aus dem DMV-Versand¬ 
service 

• PC-Anwendungen 

• PC-Applikationen 

• PC-Entwicklungssysteme 

Zur Erinnerung: 

Meine PC-Software wurde bestellt am 


3 ■ Chancen nutzen 

Wollen Sie etwas aus dem Com¬ 
puterbereich tauschen, verkaufen 
oder erwerben, dann schalten Sie • 
doch eine Gelegenheitsanzeige in 
unserem Kleinanzeigen-Markt. 

Dabei können Sie bestimmt so 
manche Mark sparen und ein gu¬ 
tes Schnäppchen machen. Ihre 
Chancen nutzen Sie konsequent 
mit 

• Gelegenheitsanzeigen 

• Kleinanzeigen 

• Gewerblichen Angeboten 

Zur Erinnerung: 

Meine Kleinanzeige wurde aufgege¬ 
ben am 
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CPC-Sonderhefte 


CPC-Sonderhefte 

Randvoll mit nützlichen Tips und Tricks für Ihren CPC- 
Computer, sollten die Sonderhefte der PC Amstrad 
International in keiner Sammlung fehlen. Ob komplett 
als Kraftpaket oder als Kombipack mit der DATABOX - 
jetzt können Sie kompaktes CPC-Wissen so günstig 
wie noch nie erwerben. 

CPC-Sonderheft-Kraftpaket 

Fünf CPC-Sonderhefte 

3, 5, 6, 7, 8 DM 35,-* 


CPC-Sonderheft-Kombipack 

Ein Sonderheft (3, 5, 6, 7, oder 8) 

+ DATABOX DM 29,-* 


DMV-Sammelordner 

2 Stück dm 15,80* 









































Joyce-Programmsammlungen 


GCPM - die grafische 
Benutzeroberfläche für den 
Joyce 

Schnell, bequem und komfortabel 

Beneiden Sie nicht länger die PC-Besitzer! Mit GCPM 
können Sie nun auch für den Joyqe eine komfortable 
grafische Benutzeroberfläche inklusive Mausbedie¬ 
nung, Uhr, Taschenrechner, Schnittstellensteuerung, 
Passwortabfrage und vielem mehr erwerben. 

GCPM bietet Ihnen unter anderem: 

• Steuern Sie alle Funktionen Ihres Joyce wahlweise über 
Maus oder Tastatur. • Arbeiten Sie mit der Darstellung aller 
Dateien in Tabellenform ähnlich LogoScript und den Stan¬ 
dardfunktionen wie Kopieren. Umbenennen und Löschen. 

• Auf bis zu drei Laufwerken können Sie Parameter, 
Suchpfade (ohne SETDEF) und das temporäre Laufwerk 
beliebig einstellen. • Verändern Sie Dateiattribute, und 
rufen Sie Programme direkt von GCPM aus auf. • Nutzen 
Sie die Funktionen zum Verschlüsseln und Komprimieren 
von ASCII-Dateien und die optionale Passwortabfrage 


Joyce-Bild-Editor 

Grafikprogramm zum Erstellen hochauf¬ 
lösender Grafiken 

Der Joyce ist mehr als ein Textverarbeitungssystem! 
Mit dem Joyce-Bild-Editor erstellen Sie komfortabel 
hochauflösende Grafiken, binden diese in eigene Pro¬ 
gramme ein oder geben sie auf dem Joyce-Drucker 
aus. 

Der Joyce-Bild-Editor - erschließt die Grafikfähigkeiten Ihres 
Joyce: 

• Exaktes, pixelgenaues Zeichnen durch Normal- und Feinmodus 

• Lösch- und Invertierungsfunktion in beiden Bearbeitungsmodi 

• Einfache Integration beliebiger Texte in die Bildelemente 

• Laden und Speichern von Bildern mit übersichtlichem Dateimenü 

• Option zum Mischen von fertigen Bildern nach der Erstellung 

• Ausdruckmöglichkeit mit Randbestimmung auf dem Joyce- 
Drucker 

• Bis zu vier verschiedene, vordefinierte Druckformate anwählbar 

• Kompletter Quelltext in Turbo Pascal 3.0 wird mitgeliefert 

Joyce-Programmsammlung 4: 

Bild-Editor nur dm 49,-* 


I Sparen Sie 
Zeit mit dem 
integrierten 
Taschenrech¬ 
ner mit Zwi¬ 
schenspei¬ 
cher und um¬ 
fassenden 
Rechenfunk¬ 
tionen 

• Verändern 
Sie beliebig 
die Grundein¬ 
stellungen 
der Schnitt¬ 
stelle, des 
Zeichensatzes, 

der Tastatur, der Maus, der Diskettenlaufwerke und des 
Druckers. • Ein Screensaver stellt den Monitor bei Nicht¬ 
gebrauch dunkel. • Mit dem GCPM-Starterset als Installa¬ 
tionsprogramm und 40seitigem Handbuch mit vielen Abbil¬ 
dungen können Sie im Handumdrehen GCPM auch auf 
Ihrem Joyce anwenden. Ein Programm, das jeder Joyce- 
Besitzer haben muß! 

Joyce-Programmsammlung 7: 

GCPM - Grafische Benutzeroberfläche nur dm 69,- : 


Joyce-Busineß-Paket 

Erstellung von Geschäftsgrafiken und 
Tabellentextverarbeitung 

Für Präsentationen erstellen Sie mit GsxPlot Ge¬ 
schäftsgrafiken und Statistiken in Form von Balken-, 
Kurven- und Punktediagrammen für Bildschirm und 
Drucker. Mit FeldTab füllen Sie Vordrucke, Formulare 
und Tabellen mit Ihren Texten aus. 

GsxPlot - die Lösung für Busineß-Grafik auf dem Joyce: 

• Menügesteuerte Erstellung von Balken- und Kurvendiagrammen 

• Strich- und Textgrafik ebenfalls über Menüs steuerbar 

• Online-Hilfe zur schnellen Einarbeitung in die Programmfunktionen 

• Darstellung der erstellten Grafiken auf Bildschirm und Drucker 

FeldTab - plaziert Ihre Texte millimetergenau: 

• Komplette Menüsteuerung im gewohnten Aufbau von LocoScript 

• Genaue Eingabe von Seitenlänge, Zeilenabstand und Tabulatoren 

• Individuelle Bestimmung von Schrittweiten und Schriftarten 

• Eingebauter, komfortabler Seiteneditor zur Eingabe der Texte 

• Textübernahme von LocoScript oder als ASCII-File möglich 

Joyce-Programmsammlung 3: 
Busineß-Paket nur dm 59,- 


«NpliiMlv c >M rillt MueuNMflfeiy V 1 10 teH»B Wl-Nrlt« 

/\ 

tevlU 74*th#nr«hw tf/Tl plu* Kiattnta $2*1 tnlt 

DuVrttf IkUflt talfi Mmwfwn «wrfiar '•ricMfliiltr 

0 1 I uniivti Iutrflfn « U 

/‘IST» 

» • ZM In 1 

M.« Hk In 1 

B ■ » 7« fMJ 


Ui 

m 


Keine Inhaltsverzeichnisse mehr mühsam einzeln auslesenl 
Mit GCPM sind Sie über alle Laufwerke immer im Bilde. 















Hochwertige Software zu Niedrigpreisen für Joyce-Besitzer 
aus der Angebotspalette des DMV-Verlags! 

Jede Programmsammlung ist, soweit nicht anders vermerkt, auf Joyce PCW 
8256 und 8512 lauffähig und wird als auf 3-Zoll-Diskette mit deutscher Bedie¬ 
nungsanleitung ausgeliefert. 


Joyce-Tabellenkalkulation 

Die universelle Tabellenkalkulation für alle Joyce-Be¬ 
sitzer. Ob Monatsbilanzen, Steuerabrechnungen oder 
Kontoführung - mit der Joyce-Tabellenkalkulation sind 
Sie allen Aufgaben gewachsen. 

Schnell, einfach und sicher - die Joyce-Tabellenkalkulation: 

• Schnelle Dateioperationen durch Benutzung der RAM Disk 

• Besonders schnelle Berechnungsalgorithmen für die Felderwerte • Übersichtliche 
Menüführung und 
Abfangen von Fehl¬ 
eingaben • Stan¬ 
dardmäßig bis zu 
2574 frei belegbare 
Felder für Berech¬ 
nungen • Am Rand 
eingeblendete For¬ 
mel mit bis zu 68 
möglichen Zeichen 

• Eigene Befehle 
zur Verkürzung der 
Formeln und Expo- 
nentialausdrücke 

• Ausdruck der Er¬ 
gebnisse in bis zu 
drei verschiedenen 
Schriftarten 


Joyce-Programmsammlung 6: 

Tabellenkalkulation für alle Joyce PCWs 



nur DM 59,- 


Joyce-Datenbank 

Die ideale Datenbank für den Joyce mit minimalem 
Disketten-Speicherbedarf. Dennoch bietet Ihnen die] 
Joyce-Datenbank maximal 27 Felder pro 
Datensatz, 50 Stellen pro Feld und bis zu 
35.000 Datensätze pro Datei. 

Daten effektiv verwalten mit der Joyce-Datenbank: 

• Besonders schnell durch Verwendung der RAM-Disk lür das 
Programm 

• Universell durch die Ver-- 

Wendung von Standard 
Direktzugriffsdateien 

• Bequem durch Datentrans 
fer von vorhandenen in neuan¬ 
gelegte Dateien • Maske zur 
Datenerfassung und Ände¬ 
rung wird automatisch gene¬ 
riert • Komfortabel durch 
Wahl der Sortierkriterien oder 
Mehrfachsortierung 

• Listen mit automatischer 
Spaltenformatierung und 
Spaltensummen • Automa¬ 
tischer Eintrag neuer Dateien 
in das Disketten-Hauptmenü 

• Speicherung einmal ge¬ 
wählter Druckparameter zur Wiederverwendung 

Joyce-Programmsammlung 5: 

Datenbank (PCW 9512 auf 
Anfrage) nur DM 69,- 
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Joyce-Zeichensatz-Designer Joyce-Dateiverwaltung 


Erstellung von Zeichensätzen und 
grafische Darstellung mathematischer 
Funktionen 

Sonderzeichen und ganze eigene Zeichensätze für die 
Bildschirmausgabe erstellen Sie komfortabel und ein¬ 
fach mit dem Joyce-Zeichensatz-Designer. Mit dem 
Programm MGX können Sie mathematische Funktio¬ 
nen und Meßreihen auf Bildschirm und Drucker ausge¬ 
ben. 

Zeichensätze selbstgemacht mit dem Joyce-Zeichensatz-Designer: 

• Editieren, Erstellen und Abspeichern von Bildschirm-Zeichensätzen 

• Drucken von vorformatierten ASCII-Texten unter CP/M Plus möglich 

• Vier fertig gestaltete Zeichensätze im Lieferumtang enthalten 

• Bonusprogramm zum Einstellen der Joyce-Schnittstelle und Tastatur 

MGX - Funktionen und Meßwerte grafisch auf Bildschirm und Drucker: 

• Arilhmetische Grund- und Sonderfunktionen sind darstellbar 

• Gleichzeitige Darstellung mehrerer Funktionen und Meßreihen 

• Druckerausgabe der Ergebnisse im Großformat möglich 

• Neben einer Klammerebene ist eine Memory-Funktion integriert 

Joyce-Programmsammlung 1 : 

Zeichensatz-Designer nur dm 49,-* 


Universelle Erstellung und 
Verwaltung eigener Dateien 

Legen Sie Ihre Daten in eigene Dateien ab, und 
verwalten Sie diese mit SuperDat. Rund¬ 
schreiben, Serienbriefe und eine Übernahme 
der Daten in LocoScript erledigen Sie mit 
SuperTex. Ein leistungsfähiger Taschenrech¬ 
ner steht Ihnen mit SuperCal zur Verfügung. 


SuperDat - Super-Dateiverwaltung für Ihre Daten: 

• Komfortable Eingabe der Daten in eine Eingabemaske 

• Mehrere Arten von Suchfunktionen, z.B auch Suche mit Jokern 

• Dateien bis zu 8 Feldern und Datensätze bis 255 Zeichen möglich 

SuperTex - verarbeitet Ihre Daten automatisch: 

• Einfügen von ausgewählten Einträgen aus SuperDat-Dateien m Text 

• Umwandlung von bis zu 30 Datensätzen in eine LocoScript-Datei 

SuperCal - der Tachenrechner für den Joyce: 

I Bietet Grundrechenarten, Winkel-, 

Quadrat- und Prozentfunktionen 

• Neben einer Klammerebene ist 
eine Memory-Funktion integnert 

Joyce-Pro- 
gramm- 
sammlung 2: 

Dateiverwaltung 
nur DM 49,-* 
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dBase: 

Werkzeugklstc 


Dmckorspoolor 

Koplerprogmmm 

RAM-Monllor 


Programme: 

Arlrofl- und 


Joyce-Sonderhefte 

Als Sonderpublikationen der PC Amstrad International bieten die Joyce- 
Sonderhefte auf jeweils 120 Seiten ausschließlich erstmalig veröffentlichte 
Beiträge sowie reichlich Tips & Tricks zu Joyce/PCW 8256, 8512 und 9512. 


Joyce-Sonderheft 3: 


Aus dem Inhalt: 

Joyce-Sonderheft 4: 

• Strickmustergenerator 

• WordStar-Verbesserungen 

• Bundesligasimulation 

• Super-Reaktionsspiel Filemanager 

• Pulldown-Menüs 

• Astrologieprogramm 

• Diskettenmonitor 

• Hauptstädte raten in LOGO 

• Statuszeile für dBase und Basic 

• Hardcopy-Routine für 24-Nadler 

• LOGO macht Schachteln 

• dBase-Literaturverwaltung 

• Universelles Werkzeug zur Veränderung von dBase-Dateien 

• Joyce-Sonderheft-Kombipack 


Joyce-Sonderheft 2: 


Adreßverwaltung 

Archivprogramm (Video- oder Literaturverwaltung) 
Pascal-Compiler in Basic 
Suburbia (Spiel ähnlich Monopoly(R)) 
Turbo-Pascal-Grafikroutinen ohne GSX 
Komfortable Balkengrafik 
Joyce-Zweitlaufwerk selbst anschließen 
3D-Plotter 

Etikettendruckprogramm 

Ordnung auf der Diskette mit LocoScript 

dBase-Handbuch selbst ausdrucken 

LOGO-Funktionenzeichner 


• Vokabeltrainer 

• RAM-Monitor - Speicherinhalte verändern 

• Memory-Spiel 

• Mini-DTP-Programm 

• Drucker-Spooler unter CP/M 

• Disketten-Kopierprogramm bis 43 Spuren 

• Grafik auf dem Joyce-Drucker 

• Tastaturbelegung unter CP/M und 
LocoScript ändern 

• Reset ohne Datenverlust 

• Super-Werkzeugkiste dBase 

• Grafikutilities für LOGO 


Jeweils ein Sonderheft + die DATABOX dm 29,-* 









> 


I 


J 



DMV-Bücher zum Joyce 

Alle Besitzer eines Joyce-PCW, die ahnten, daß der Horizont Ihres 
Computers weit über LocoSript hinausgeht, finden jetzt Ihre Bestätigung: 


Joyce - mehr als ein 
Textsystem 

Auf über 300 Seiten tragen die Autoren alles Wissenswerte 
über den Joyce/PCW zusammen. Anfänger wie Profis, 
Anwender wie Programmierer finden in diesem Buch einen 
reichen Schatz an Tips und Tricks sowie ein unentbehrli¬ 
ches Nachschlagewerk. 

Erstmals wird auch in einem Buch ein »heißes« Eisen 
ausführlich behandelt: die Hardware des Joyce. Besonders 
dieses Kapitel zeigt völlig neue Möglichkeiten des Joyce - 
so wird beispielsweise der Anschluß eines Sprachsynthe¬ 
sizers und der Selbstbau einer Schnittstelle besprochen. 
Ausführliche Kapitel über Basic und LOGO erlauben Ihnen, 
die Möglichkeiten dieser Sprachen auszureizen. Anfänger! 
die sich erstmals in der Programmierung versuchen wollen! 
finden durch sinnvolle, kurze Beispielprogramme wertvolle 
Unterstützung. Ein besonderes »Schmankerl« ist das gro¬ 
ße Extra-Kapitel zur JETSAM-Dateiverwaltung. 

Aus dem Inhalt: 

• Sprachen: 

LOGO als Grafiker und mit kompletter Befehlsübersicht 
Erläuterung aller Basic-Befehle mit Beispielprogrammen 
Generator für Jetsam-Verarbeitung 
Kurzübersicht für Turbo Pascal und C 

• Programmierhilfen, Tips und Tricks: 
Steuercode-Tabellen für Bildschirm und Drucker 
XBIOS-Routinen 
OUTs und POKEs unter Basic 

• Hardware: 

Speichererweiterung 
Zweitlaufwerk 
Druckkopfreinigung 
Bildschirminverter 
Schnittstelle am Expansions-Port 
Sprachsynthesizer 

Joyce - mehr als ein Textsystem 
325 Seiten mit farbigen Abbildungen, Leinen- 
Hardcover, 

inklusive 3-Zoll-Diskette jetzt nur dm 49,-* 


Unser Joyce-Hit weiter im 
Angebot: 

Praktische Textverarbeitung mit Joyce 

Der Autor Jürgen Siebert zeigt in diesem Buch die Möglich¬ 
keiten der Textverarbeitung LocoScriptauf. Darunter vieles, 
was Sie von LocoScript nicht erwartet hätten.... 

Von der Pike auf werden Sie an den Umgang mit Schablo¬ 
nen und Standard-Layouts herangeführt. Einige Abstecher 
führen auch zu anderen Textverarbeitungen unter CP/M 
wie ED und Wordstar. 


JOYCE - mehr als ein Textsystem 

Anwendungen und Problemlösungen 
für PCW 8256/8512/9512 






Auf der Diskette erhalten Sie über 50 Datei¬ 
en mit Schablonen, Brief- und Postkarten- 
Layouts, Serien-Rundschreiben, Etiketten, 
Formularen, Schriften, Bildschir¬ 
minstallationen und vieles mehr. 

Aus dem Inhalt: 

• LocoScript-Training für Fort¬ 
geschrittene 

• Wie rette ich den Text bei 
Systemfehlern? 

• Joyce-Tasteninstallation für 
Wordstar 

• Aleatorische Poetik: 

Der Computer dichtet 


Praktische 
Textverarbei¬ 
tung mit Joyce 

207 Seiten, 
Leinen-Hardcover, 
Inklusive 3-Zoll - 
Diskette 

jetzt nur DM 49,-* 





































High-Speed: 

Höchsteffiziente Programmierung in Assemb¬ 
ler und intelligente Berechnungs-Routinen für 
enorme Zeitersparnis 

Mandelbrot und Juliamenge: 

Mit automatischer Glättungsfunktion 

Stufenloser vertikaler Blickwinkel: 
Wahlweise Sicht von oben, unten, schräg 
und in der Totalen einzeln und stufenlos 
einstellbar 


Voller Bedienungskomfort: 

Auswahl komplett mit Pulldown-Menüs. 
Wahlweise Steuerung mit der Maus oder 
über die Tastatur 


Mehrere separate Bildspeicher: 
Getrennte Abspeicherung von Farben und 
Bild. Verwendung der Bilder in Malprogram¬ 


men 


Phantastische Farbmöglichkeiten: 
Farben-Mischpaletten im Auswahlmenü. 
Beliebige nachträgliche Veränderung der 
Bildfarben 


Fraktal-Generator 3D PC 
Spezialversion für Amstrad/Schneider 1512 
alle PC/XT/AT mit EGA- oder VGA-Karte 

DM 69, - :| 


Fraktal-Generator 3D CPC 

3-Zoll-Diskette 


DM 49,- :1 


DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 




Meisterstücke der Computergrafik 
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Verbindung der Druckerschnittstellen 
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Pin 2 = Write 
Pin 11 = Read 
Pin 9 = Masse 

Bild 1: Der Schaltplan für das Verbindungskabel 


Sie sich für Quell- und Zielcomputer 
entscheiden. Da die Disketten nicht ge¬ 
wechselt werden müssen, dauert die 
Kopie einer Diskettenseite nur etwas 
mehr als eine Minute. Das Kopierpro- 
gramm kann nur Standardformate le¬ 
sen und schreiben. 

CPC-Koppelprogranim 

Hier gibt es einmal eine Standardver¬ 
sion. die auf allen CPCs lauffähig ist. 
und eine spezielle Version für den CPC 
6128, die HIMEM nicht heruntersetzt 
und daher mit mehr Programmen zu¬ 
sammenarbeitet. Außerdem ist die 
CPC-6128-Version größtenteils Reset¬ 
fest und kann mit einem kurzen Listing 
(RESTART) neu initialisiert werden. 
Wenn Sie nach dieser Erweiterung ein 
weiteres Programm dieses Artikels 
starten wollen, sollten Sie einen Reset 
auslösen oder zumindest den Befehl 
LOGOUT anwenden, da sonst ein 
Chaos entstehen würde. Nach dem 
Start des Koppel Programms stehen Ih¬ 
nen folgende RSX-Befehle zur Verfü¬ 
gung: 

ILOGIN 

Mit diesem Befehl zeigen Sie sich emp¬ 
fangsbereit. 

ILOGOUT 

Hiermit schalten Sie die Empfangsbe- 
reitschaft ab. 

ISENDPIC 

Sendet den aktuellen Bildschirminhalt 
an den anderen CPC. 

IRECPIC 

Bringt den aktuellen Bildschirminhalt 
des anderen CPC auf Ihren Monitor. 

ISEND,“ <Text> “ 

Hiermit übertragen Sie eine Textnach¬ 
richt. Der Empfänger kann sie in der 
untersten Bildschirmzeile durchlesen, 
wobei sie durch Drücken der SPACE- 
Taste verschwindet beziehungsweise 
bei Überlänge weitergescrollt ward. 
Bitte beachten Sie, daß CPC-464- 
Besitzer den Text erst an einen String 
übergeben (a$ = “ < Text > “) und dann 
ISEND,@a$ eingeben müssen. 

TRON 

Das letzte Programm ist eine TRON- 
Variante mit zwei Computern. Wollen 
Sie zu zweit spielen, so müssen Sie bei 
der ersten Abfrage < 2 > Spieler ange¬ 
ben und bei der zweiten Frage bei dem 
einen CPC /. Computer und beim ande¬ 
ren 2.Computer anwählen. Während 
des Spiels kann der “Wurm“ mit dem 
Feuerknopf beschleunigt werden. Die¬ 
ser Turbo baut allerdings eine Art 


“EnergieVorrat“ ab, das heißt, nach ei¬ 
ner bestimmten Streckenlänge ist er 
nicht mehr verfügbar (nur bei zwei 
Spielern). 

Vor jedem Spiel wird kurz die Anzahl 
der verursachten Zusammenstöße ein¬ 
geblendet. Nach jedem Spiel wartet der 
CPC auf einen beliebigen Tastendruck. 
Wird hier die Taste <R> gedrückt, so 
wird der Spielstand auf diesem CPC 
zurückgesetzt. 

Um Sie nicht mit übermäßig vielen Li- 
stings zu überhäufen, enthält jedes Pro¬ 


gramm einen eigenen Datalader, so daß 
nur TRANSMC nachgeladen wird. 
Aus diesem Grund benötigt jedes der 
Programme nach dem Start eine länge¬ 
re Initialisierungsphase. 

Es gibt ein Sprichwort: Was Ochs 
kann, kann Öchschen noch lange nicht , 
ein anderes Sprichwort sagt aber: Aus¬ 
nahmen bestätigen die Regel- Daten¬ 
übertragung ist ihr die CPCs. wie so 
vieles, wirklich kein Fremdwort. 


(Andreas Stroiczek/tk) 
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20 ' = Dieser Datalader erzeugt die Datei ' 
TRANSMC' = 


[2213] 
[2722 ] 


40 MODE 2 
50 DEFINT a-z 
60 RESTORE 200 
70 zeile=200 

80 start=&A000:length=407:n$="TRANSMC" 

90 MEMORY start-1 

100 FOR i=start TO start+length-1 STEP 10 
110 FOR j=i TO i+9 

120 READ a$:a=VAL("&"+a$):POKE j,a 

130 pr=(pr+(j-i+l)*a)MOD 4096 

140 NEXT 
150 READ a$ 

160 IF VAL("&"+a$)<>pr THEN PRINT"Pruefs 
ummenfehler in "zeile:STOP 
170 zeile=zeile+l 
180 NEXT 

190 SAVE n$,b,start,length:END 

200 DATA C3,72,AF,F3,CD,5C,B0,CD,03,B0,FDC 

201 DATA 30,66,78,B1,E6,0F,28,60,CD,6B,957 

202 DATA AF,CD,40,B0,06,EF,18,02,7B,B7,109 

203 DATA CC,4E,AF,7E,ED,79,0F,00,00,00,E56 

204 DATA 00,00,00,ED,79,0F,00,00,00,00,4C1 

205 DATA 00,00,ED,79,0F,00,00,00,00,00,9B7 

206 DATA 00,ED,79,0F,00,00,00,00,00,00,D38 

207 DATA ED,79,0F,00,00,00,00,00,00,ED,886 

208 DATA 79,0F,00,00,00,00,00,00,ED,79,62C 

209 DATA 0F,00,00,00,00,00,00,ED,79,0F,27A 

210 DATA 00,00,00,00,00,00,23,1B,7A,B3,F8F 

211 DATA 20,AC,FB,C9,F6,FF,FB,C9,CD,6B,A6C 

212 DATA AF,00,00,00,00,00,00,00,00,06,B57 

213 DATA EF,0E,00,ED,49,06,F5,0E,40,ED,44C 

214 DATA 78,A1,20,FB,06,EF,C9,06,EF,0E,EAC 

215 DATA FF,ED,49,C9,F3,CD,03,BO,30,D2,ESA 

216 DATA 78,B1,E6,0F,28,CC,CD,5C,B0,06,7C9 

217 DATA F5,18,02,7B,B7,CC,DB,AF,ED,78,BB5 

218 DATA 07,07,CB,19,00,00,00,ED,78,07,A75 

219 DATA 07,CB,19,00,00,00,ED,78,07,07,71D 

220 DATA CB,19,00,00,00,ED,78,07,07,CB,955 

221 DATA 19,00,00,00,ED,78,07,07,CB,19,965 

222 DATA 00,00,00,ED,78,07,07,CB,19,00,705 

223 DATA 00,00,ED,78,07,07,CB,19,00,00,24E 

224 DATA 00,ED,78,07,07,CB,19,00,00,00,B40 

225 DATA 71,23,1B,7A,B3,20,AC,FB,C9,CD,EOE 

226 DATA 6B,AF,06,F5,ED,78,E6,40,20,FA,E5C 

227 DATA 00,00,00,00,00,06,EF,OE,00,ED,EBB 

228 DATA 49,00,00,00,00,00,00,00,00,00,F04 

229 DATA 00,00,00,00,00,00,06,F5,C9,06,E23 

230 DATA F5,OE,40,E5,D5,11,FO,FO,21,OF,7E6 

231 DATA OF,ED,78,Al,28,05,2D,20,F8,18,A84 

232 DATA 1A,ED,78,Al,20,05,25,20,F8,18,CCD 

233 DATA 10,ED,78,Al,28,03,14,20,F8,ED,703 

234 DATA 78,Al,20,03,IC,20,F8,42,4B,Dl,EIA 

235 DATA El,79,90,30,02,ED,44,FE,02,C9,9AD 

236 DATA 06,F5,OE,40,E5,21,OF,OF,ED,78,FEC 

237 DATA Al,28,05,2D,20,F8,El,C9,ED,78,184 

238 DATA Al,20,EE,25,20,F8,El,C9,D5,AF,6F5 

239 DATA 06,EF,OE,20,ED,79,2F,16,08,15,40D 

240 DATA 20,FD,OD,20,F5,Dl,C9,00,00,00,5FC 


[513] 

[553] 

[563] 

[653] 

[1831] 

[1133] 

[2163] 

[818] 

[1247] 

[977] 

[350] 

[309] 

[5239] 


[350] 
[2973] 
[1674] 
[1611] 
[1472] 
[1842] 
[1996] 
[1776] 
[1236] 
[1402] 
[1197] 
[607] 
[1476] 
[1190] 
[2261 ] 
[1347] 
[1361] 
[1170] 
[2229] 
[1836] 
[2241] 
[1841] 
[1030] 
[1766] 
[1937] 
[2035] 
[1083] 
[2065] 
[2256] 
[1670] 
[1424] 
[1461] 
[1427] 
[2714] 
[1722] 
[1691] 
[1639] 
[2268] 
[3035] 
[1568] 
[2568] 
[1935] 
[1729] 


Listing DATALDR.BAS 


10 ' 

20 'Fuer BASIC-Anwender: 

30 ' 

40 DEFINT a-z 

50 LOAD"transmc",&AED8 

60 MEMORY &A5FF 

70 FOR i=&A600 TO &A620 

80 READ a$ : POKE i, VAL( "S,"+a$ ) 

90 NEXT 
100 ' 

110 DATA FD,21,D8,AE,18,04,FD,21,DB,AE,DD 
120 DATA 66,05,DD,6E,04,E5,DD,66,03,DD,6E 
130 DATA 02,CD,1F,A6,E1,77,23,77,C9,FD,E9 
140 ' 

150 ' 

160 'Beispiel: 

170 'Bildschirm uebertragen (Startadresse- 
&C000,Laenge=&4000) 

180 ' 

190 ' 

200 'Bildschirm senden: 


[117] 

[1657] 

[117] 

[553] 

[1339] 

[467] 

[1496] 

[608] 

[350] 

[117] 

[2804] 

[1254] 

[1049] 

[117] 

[117] 

[1554] 

[4317] 

[117] 

[117] 

[919] 


210 ' 

220 ' 10 f%=0:CALL &A606,@f%,&C000,&4000:I 
F f% THEN 10 
230 ' 

240 ' f%: Flag: f%=0 Daten wurden uebertr 
agen 

250 ' f%<>0 Daten wurden nicht u 

ebertragen 

260 ' &C000: Startadresse des Blocks 
270 ' &4000: Laenge des Blocks 
280 ' 

290 ' 

300 'Bildschirm empfangen: 

310 ' 

320 ' 10 f%=0:CALL &A600,@f%,&C000,&4000:I 
F f% THEN 10 
330 ' 

340 ' f%: Flag: f%=0 Daten wurden empfang 
en 

350 ' f%<>0 Daten wurden nicht e 

mpfangen 

360 ' &C000: Ablageadresse des Blocks 
370 ' &4000: Laenge des Blocks 
380 ' 


[117] 

[2285] 

[117] 

[3900] 

[3014] 

[2507] 

[2548] 

[117] 

[117] 

[1340] 

[117] 

[2109] 

[117] 

[2750] 

[1659] 

[1928] 

[2548] 

[117] 


Listing BASUSER.BAS 


10 '===================== [1354] 

20 '= DiscCopy mit = [849] 

3Q ' = zwei CPCs = [840] 

40 '=-- [958] 

50 '= 1990 programmiert = [1365] 

60 '= von A.Stroiczek = [766] 

80 ' [117] 

90 MODE 1 [506] 

100 DEFINT a-z [553] 

110 LOAD"transmc",&AED8 [1339] 

120 MEMORY &8FFF:GOSUB 230 [744] 

130 PRINT"<Q>uell- oder <Z>ielcomputer?" [2940] 
140 a$=UPPER$(INKEY$):IF a$=""THEN 140 [1808] 

150 a=INSTR("QZ",a$):IF a=0 THEN 140 [2548] 

160 IF a-1 THEN a$="Ziel":adr=&9000 ELSE a [4506] 
$="Quell":adr=S9003 

170 MODE 1:PRINT"Bitte "a$"diskette einleg [5103] 
en...":GOSUB 200 

180 MODE 1:CALL adr:IF PEER(&BAFF)THEN PRI [5922] 
NT"Diskettenfehler!!":GOSUB 200 

190 GOTO 170 [427] 

200 WHILE INKEY$<>"":WEND:CALL &BB06:RETUR [3206] 
N 

210 ' [117] 

220 'M-Code [308] 

230 RESTORE 370:zeile=370:start=&9000:leng [3830] 
th=510 

240 pr=0 [117] 

250 FOR i=start TO start+length-1 STEP 10 [2163] 

260 FOR j=i TO i+9 [818] 

270 READ a$:a=VAL("&"+a$):POKE j,a [1247] 

280 pr=(pr+(j-i+1)*a)MOD 4096 [977] 

290 length=length-l:IF length=0 THEN j=i+9 [3140] 
300 NEXT [350] 

310 READ a$ [309] 

320 IF VAL("&"+a$)<>pr THEN PRINT"Pruefsum [5239] 
menfehler in "zeile:STOP 

330 zeile=zeile+10 [568] 

340 NEXT [350] 

350 RETURN [555] 

360 ' [117] 

370 DATA C3,99,90,ED,73,FE,91,AF,67,6F,0F0 [2796] 
380 DATA 22,01,92,32,FF,BA,CD,03,91,CD,FB7 [1354] 
390 DATA 20,91,21,00,92,11,01,00,CD,DB,466 [1231] 
400 DATA AE,20,FB,CD,Fl,90,CD,59,90,CD,903 [1610] 
410 DATA 73,91,CD,63,91,32,03,A4,21,03,908 [1989] 
420 DATA 92,11,01,12,CD,DB,AE,20,FB,21,309 [1940] 
430 DATA 58,90,11,01,00,CD,D8,AE,20,FB,FCC [1421] 
440 DATA 3A,58,90,B7,20,E4,3A,01,92,3C,452 [1630] 
450 DATA 32,01,92,FE,28,20,CD,C9,00,21,8E9 [2680] 
460 DATA 01,01,CD,75,BB,2A,01,92,11,0A,75E [2024] 
470 DATA 00,CD,76,90,D5,7D,C6,30,CD,5D,572 [1873] 
480 DATA BB,Dl,7B,C6,30,C3,5D,BB,7A,B3,585 [2525] 
490 DATA FE,01,D8,C5,06,10,7C,4D,21,00,394 [1424] 
500 DATA 00,CB,11,17,ED,6A,ED,52,30,01,79B [2067] 
510 DATA 19,3F,10,F3,CB,11,17,EB,67,69,03D [1855] 
520 DATA B7,C1,C9,ED,73,FE,91,AF,67,6F,21C [1967] 
530 DATA 22,01,92,32,FF,BA,21,00,92,11,4C8 [1802] 
540 DATA 01,00,CD,D8,AE,20,FB,3A,00,92,D17 [2101] 
550 DATA CD,20,91,CD,F7,90,21,03,92,11,209 [2145] 
560 DATA 01,12,CD,D8,AE,20,FB,CD,63,91,285 [1973] 
570 DATA 5F,3A,03,A4,AB,21,58,90,77,11,5CF [2366] 
580 DATA 01,00,CD,DB,AE,20,FB,3A,58,90,12E [2319] 
590 DATA B7,20,DB,CD,59,90,CD,73,91,3A,D97 [1450] 
600 DATA 01,92,3C,32,01,92,FE,28,20,CA,4DF [2052] 


Listing BASUSER BAS 


Listing DISCCOPY.BAS 


70 PC 4/5’91 














Hardware—i 


i 








i 


610 DATA C9,21,A6,91,AF,18,05,21,A9,91,AE1 [26941 
620 DATA 3E,FF,22,91,91,32,74,91,09,11,337 [1896] 
630 DATA 00,00,DF,B5,91,D2,9C,91,11,00,9CE [1960] 
640 DATA 00,DF,AC,91,D2,90,91,3a, 51,BE,7A2 [970] 
650 DATA 07,07,E6,03,32,00,92,C9,E6,03,DE9 [2317] 
660 DATA 07,21,B8,91,85,6F,30,01,24,7E,F59 [2032] 
670 DATA 23,66,6F,7E,11,DC,91,01,FF,09,65A [2339] 
680 DATA ED,A0,13,13,13,10,F9,IE,00,DF,A40 [1472] 
690 DATA AF,91,C9,1E,00,3A,01,92,57,06,822 [1577] 
700 DATA 09,21,DA,91,72,23,23,23,23,10,433 [1580] 
710 DATA F9,3A,DC,91,4F,21,DA,91,DF,B2,612 [1552] 
720 DATA 91,D8,C3,9C,91,AF,21,03,92,OE,AA8 [1671] 
730 DATA 12,06,00,86,23,10,FC,OD,20,F7,FFF [1817] 
740 DATA C9,3E,00,B7,C4,43,91,1E,00,3A,OB1 [2464] 
750 DATA 01,92,57,21,03,92,3A,DC,91,4F,77F [1884] 
760 DATA 06,09,3A,00,92,E6,01,20,01,05,1C5 [2477] 
770 DATA DF,A9,91,D2,9C,91,24,24,0C,10,28B [849] 
780 DATA F5,C9,3E,FF,32,FF,BA,ED,7B,FE,B79 [1489] 
790 DATA 91,C9,66,C6,07,4E,C6,07,5D,C5,476 [1429] 
800 DATA 07,81,C5,07,52,C6,07,63,C7,07,8B6 [1554] 
810 DATA CO,91,Dl,91,CO,91,C8,91,01,02,092 [1544] 
820 DATA 03,04,05,06,07,08,C1,C6,C2,C7,B26 [1851] 
830 DATA C3,C8,C4,C9,C5,41,46,42,47,43,15F [2268] 
840 DATA 48,44,49,45,00,00,00,02,00,00,42E [2000] 
850 DATA 00,02,00,00,00,02,00,00,00,02,452 [1776] 
860 DATA 00,00,00,02,00,00,00,02,00,00,46A [2027] 
870 DATA 00,02,00,00,00,02,00,00,00,02,48E [1667] 

Listing DISCCOPV.BAS 


10 'RESTART-Listing zum Koppelprogramm fue [2656] 
r den CPC 6128 

20 DEFINT a-z:h=UNT(HIMEM):MEMORY &A5FF [2063] 
30 FOR i=&A600 TO &A60F:READ a$:POKE i,VAL [3592] 
("&"+a$):NEXT 

40 CALL &A600:MEMORY h:|LOGIN:NEW [2736] 
50 DATA 2A,39,00,7E,32,FA,B8,21,FB,B8,01,A [2024] 
5,BO,C3,Dl,BC 

LiSting RESTART BAS 


20 '= CPC-Koppelprogramm = 

30 ' =- - 

40 '- 1990 programmiert = 

50 ' = von A.Stroiczek = 

70 ' 

80 MODE 2 
90 DEFINT a-z 
100 SYMBOL AFTER 256 
110 LOAD"transmc",&AED8 
120 start=&A0D0 

130 RESTORE 300:zeile=300:length=660 
140 MEMORY start-1 

150 FOR i=start TO start+length-l STEP 10 

160 FOR j=i TO i+9 

170 READ a$:a=VAL("S"+a$):POKE j,a 

180 pr=(pr+{j-i+1)*a)MOD 4096 

190 length=length-l:IF length=0 THEN i=i+9 

200 NEXT 

210 READ a$ 

220 IF VAL("&"+a$)<>pr THEN PRINT"Pruefsum 

menfehler in "zeile:STOP 

230 zeile=zeile+10 

240 NEXT 

250 CALL Start 

260 (LOGIN 

270 PRINT"Befehle: I LOGIN I LOGOUT ISEN 

D |SENDPIC IRECPIC":PRINT 
280 NEW 
290 ' 

300 DATA 2A,39,00,7E,32,76,A3,21,2B,A1,39C 
310 DATA 01,FD,A0,C3,D1,BC,21,F1,A0,11,1B9 
320 DATA 2F,Al,06,81,C3,D7,BC,21,Fl,A0,2FE 
330 DATA C3,DD,BC,00,00,00,00,00,00,00,7AF 
340 DATA 00,00,00,00,00,OE,A1,C3,EO,AO,0A2 
350 DATA C3,EB,A0,C3,08,A3,C3,4A,A2,C3,116 
360 DATA A8,A2,4C,4F,47,49,CE,4C,4F,47,5CA 
370 DATA 4F,55,D4,53,45,4E,C4,53,45,4E,B25 
380 DATA 44,50,49,C3,52,45,43,50,49,C3,1AC 
390 DATA 00,00,00,00,00,F5,C5,E5,D5,DD,414 
400 DATA E5,FD,E5,2A,39,00,36,C9,21,77,8F8 
410 DATA A3,11,01,00,CD,D8,AE,20,11,3A,B70 
420 DATA 77,A3,B7,CA,6A,Al,FE,01,CA,D2,E9A 
430 DATA Al,FE,02,CA,DE,Al,F3,2A,39,00,677 
440 DATA 3A,76,A3,77,FD,El,DD,El,Dl,El,2CF 
450 DATA CI,Fl,FB,C9,21,79,A3,11,00,01,409 
460 DATA CD,D8,AE,20,FB,2E,18,CD,1A,A2,D59 
470 DATA CD,17,BC,04,11,79,A3,C5,D5,2E,7A9 
480 DATA 18,26,00,1A,B7,28,18,C5,D5,E5,437 
490 DATA CD,D3,BD,El,D1,C1,24,13,10,EF,07A 
500 DATA CD,C7,Al,Dl,CI,13,13,13,13,18,EEB 
Listing LOG.BAS 


[1579] 

[1174] 

[1060] 

[1365] 

[766] 

[1579] 

[117] 

[513] 

[553] 

[1408] 

[1339] 

[623] 

[1599] 

[1133] 

[2163] 

[818] 

[1247] 

[977] 

[3140] 

[350] 

[309] 

[5239] 

[568] 

[350] 

[840] 

[1244] 

[5739] 

[318] 

[117] 

[1357] 

[1133] 

[1463] 

[1801] 

[1409] 

[1595] 

[2257] 

[2149] 

[1381] 

[1492] 

[1775] 

[1338] 

[1973] 

[2152] 

[2225] 

[1718] 

[1550] 

[1857] 

[2070] 

[1954] 

[1277] 


510 DATA 
520 DATA 
530 DATA 
540 DATA 
550 DATA 
560 DATA 
570 DATA 
580 DATA 
590 DATA 
600 DATA 
610 DATA 
620 DATA 
630 DATA 
640 DATA 
650 DATA 
660 DATA 
670 DATA 
680 DATA 
690 DATA 
700 DATA 
710 DATA 
720 DATA 
730 DATA 
740 DATA 
750 DATA 
760 DATA 
770 DATA 
780 DATA 
790 DATA 
800 DATA 
810 DATA 
820 DATA 
830 DATA 
840 DATA 
850 DATA 
860 DATA 
870 DATA 
880 DATA 
890 DATA 
900 DATA 
910 DATA 
920 DATA 
930 DATA 
940 DATA 
950 DATA 


DE,78,Dl,CI,B8,28,11,47,0E,20,F25 
C5,E5,79,CD,D3,BD,El,CI,24,10,CF3 
F5,CD,C7,A1,2E,18,CD,15,A2,CD,9C8 
E4,Al,28,FB,C3,58,Al,CD,E4,Al,F4E 
28,FB,CD,E4,Al,20,FB,C9,CD,7E,48E 
BB,CD,C2,A2,CD,7B,BB,C3,58,A1,72B 
CD,64,A2,C3,58,A1,C5,01,0E,F4,2Al 
ED,49,06,F6,ED,78,E6,30,4F,F6,3A8 
C0,ED,79,ED,49,04,3E,92,ED,79,037 
79,F6,45,05,ED,79,06,F4,ED,78,FC5 
F5,06,F7,3E,82,ED,79,05,ED,49,B61 
CI,Fl,E6,80,C9,11,1A,77,18,03,C6D 
U,7E,12,D9,C5,CB,D9,ED,49,D9,2U 
ED,53,35,A2,26,00,CD,1A,BC,11,53A 
79,A4,0E,08,E5,06,50,7E,12,CD,AA6 
20,BC,13,10,F8,E1,CD,26,BC,0D,4BE 
20 , EE, D9 , CI , ED, 49 , D9 , C9,2A, 39,28B 
00,36,C9,CD,5C,A2,F3,2A,39,00,814 
3A,76,A3,77,FB,C9,3E,01,CD,39,1C5 
A3,C2,2C,A3,CD,11,BC,32,64,A3,BF9 
CD,3B,BC,78,32,65,A3,21,66,A3,419 
3E,10,3D,F5,E5,CD,35,BC,El,70,5E5 
23,Fl,20,F4,21,64,A3,11,12,00,4B6 
CD,40,A3,C2,2C,A3,2E,00,E5,CD,0F3 
1A,A2,21,79,A4,11,80,02,CD,40,577 
A3,El,C2,2C,A3,2C,7D,FE,19,20,C85 
E9,C9,2A,39,00,36,C9,CD,BA,A2,AGB 
F3,2A,39,00,3A,76,A3,77,FB,C9,91D 
3E,02,CD,39,A3,C2,2C,A3,21,64,FC2 
A3,11,12,00,CD,D8,AE,20,FB,3A,AA7 
64,A3,CD,OE,BC,3A,65,A3,47,4F,168 
CD,38,BC,21,66,A3,3E,10,3D,F5,916 
E5,46,48,CD,32,BC,El,23,Fl,20,4ED 
F3,2E,00,E5,11,80,02,21,79,A4,8E4 
CD,D8,AE,20,FB,El,E5,CD,15,A2,BD4 
El,2C,7D,FE,19,20,E8,C9,FE,01,951 
C0,1A,B7,C8,4F,EB,23,5E,23,56,F13 
AF,47,EB,11,79,A3,ED,BO,12,CD,E2 3 
39, A3,20,OA,11,00,01,21,79, A3,C2D 
CD,40,A3,C8,21,4B,A3,06,19,7E,F5C 
23,CD,5A,BB,10,F9,C9,21,78,A3,C56 
77,11,01,00,06,00,C5,CD,DB,AE,75A 
C1,C8,10,F8,C9,07,45,6D,70,66,F09 
61,65,6E,67,65,72,20,6E,69,63,39E 
68,74,20,62,65,72,65,69,74,21,6E4 


Listing LOG.BAS 


[2063] 
[1734] 
[1756] 
[1959] 
[1508] 
[1927] 
[1556] 
[1754] 
[2045] 
[2187] 
[1467] 
[803] 
[1955] 
[1404] 
[1411] 
[1790] 
[3037] 
[1824] 
[1699] 
[848] 
[1836] 
[2026] 
[2180] 
[1971] 
[1624] 
[1648] 
[2368] 
[1683] 
[1930] 
[568] 
[1995] 
[2369] 
[1325] 
[1900] 
[1663] 
[2400] 
[2480] 
[1511] 
[2168] 
[1215] 
[1456] 
[1294] 
[749] 
[1684] 
[1860] 


20 '= CPC-Koppelprogramm = 

40 '= Spezialversion = 

50 ' = fuer den CPC 6128 = 

60 ' =-- 

70 '= 1990 programmiert = 

80 '= von A.Stroiczek = 

100 ' 

110 MODE 2 

120 DEFINT a-z 

130 SYMBOL AFTER 256 

140 LOAD"transmc",&AED8 

150 h=UNT(HIMEM):MEMORY &3FFF 

160 RESTORE 270:zeile=270:start=&A600:leng 

th=16:GOSUB 1040 

170 RESTORE 300:zeile=300:start=&B0A5:lenq 
th=90:GOSUB 1040 
180 OUT &7F00,&C4 

190 RESTORE 400:zeile=400:start=&4000:lenq 
th=594 rGOSUB 1040 
200 OUT &7F00,SCO 

210 RESTORE 1010:zeile=l010:start=&BAE4:le 
ngth=l3:GOSUB 1040 
220 CALL &A600:MEMORY h 
2 30 I LOGIN 

240 PRINT"Befehle: I LOGIN I LOGOUT I SEN 

D ISENDPIC IRECPIC":PRINT 
NEW 
/ 

DATA 2A,39,00,7E,32,FA,B8,21,FB,B8,F7D 
DATA 01,A5,B0,C3,Dl,BC,E61 

DATA B6,B0,C3,D3,B0,C3,EB,BA,C3,E3,BA3 
DATA B0,C3,EB,B0,C3,F3,B0,4C,4F,47,998 
DATA 49,CE,4C,4F,47,4F,55,D4,53,45,F6A 
DATA 4E,C4,53,45,4E,44,50,49,C3,52,4F2 
DATA 45,43,50,49,C3,00,CD,E4,BA,CD,6E7 
DATA 00,40,18,IE,CD,E4,BA,CD,OB,40,FEI 
DATA 18,16,CD,E4,BA,CD,E4,41,18,OE,834 
DATA CD,E4,BA,CD,26,41,18,06,CD,E4,364 
DATA BA,CD,84,41,01,CO,7F,ED,49,C9,219 

DATA 21,Fl,BA,11,DB,B0,06,81,C3,D7,04F 


250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 


[ 1579] 

[1174] 

[1060] 

[226] 

[1304] 

[1060] 

[1365] 

[766] 


[513] 

[553] 

[1408] 

[1339] 

[1966] 

[4899] 

[3105] 

[356] 

[3409] 

[360] 

[2878] 

[1214] 

[1244] 

[5739] 

[318] 

[117] 

[1170] 

[1908] 

[117] 

[1733] 

[2181] 

[ 1466] 

[2127] 

[1880] 

[1955] 

[2343] 

[2114] 

[2503] 

[117] 

[2857] 


j 


Listing LOG6128.BAS 










[—Hardware 


. 


410 DATA BC,F5,C5,E5,D5,DD,E5,FD,E5,2A,A0B 
420 DATA 39,00,36,C9,21,64,42,11,01,00,366 
430 DATA CD,D8,AE,20,11,3A,64,42,B7,CA,D3D 
440 DATA 46,40,FE,01,CA,AE,40,FE,02,CA,AAD 
450 DATA BA,40,F3,2A,39,00,3A,FA,B8,77,509 
460 DATA FD,El,DD,E1,D1,E1,C1,F1,FB,C9,4BA 
470 DATA 21,66,42,11,00,01,CD,D8,AE,20,A70 
480 DATA FB,2E,18,CD,F6,40,CD,17,BC,04,2A8 
490 DATA 11,66,42,C5,D5,2E,18,26,00,1A,F78 
500 DATA B7,28,18,C5,D5,E5,CD,D3,BD,El,904 
510 DATA Dl,CI,24,13,10,EF,CD,A3,40,Dl,716 
520 DATA CI,13,13,13,13,18,DE,78,Dl,CI,226 
530 DATA B8,28,11,47,0E,20,C5,E5,79,CD,E51 
540 DATA D3,BD,El,CI,24,10,F5,CD,A3,40,CAF 
550 DATA 2E,18,CD,Fl,40,CD,CO,40,28,FB,BBC 
560 DATA C3,34,40,CD,C0,40,28,FB,CD,C0,DC0 
570 DATA 40,20,FB,C9,CD,7E,BB,CD,9E,41,EE7 
580 DATA CD,7B,BB,C3,34,40,CD,40,41,C3,9ED 
590 DATA 34,40,C5,01,OE,F4,ED,49,06,F6,587 
600 DATA ED,78,E6,30,4F,F6,C0,ED,79,ED,C50 
610 DATA 49,04,3E,92,ED,79,79,F6,45,05,4B8 
620 DATA ED,79,06,F4,ED,78,F5,06,F7,3E,3E8 
630 DATA 82,ED,79,05,ED,49,CI,Fl,E6,80,7FF 
640 DATA C9,11,1A,77,18,03,11,7E,12,D9,921 
650 DATA C5,CB,D9,ED,49,D9,ED,53,11,41,474 
660 DATA 26,00,CD,1A,BC,11,66,43,0E,08,12B 
670 DATA E5,06,50,7E,12,CD,20,BC,13,10,237 
680 DATA F8,El,CD,26,BC,0D,20,EE,D9,C1,365 
690 DATA ED,49,D9,C9,2A,39,00,36,C9,CD,D7E 
700 DATA 38,41,F3,2A,39,00,3A,FA,B8,77,75A 
710 DATA FB,C9,3E,01,CD,27,42,C2,1A,42,AEC 
720 DATA CD,11,BC,32,52,42,CD,3B,BC,78,4BC 
730 DATA 32,53,42,21,54,42,3E,10,3D,F5,7F7 
740 DATA E5,CD,35,BC,E1,70,23,Fl,20,F4,82F 
750 DATA 21,52,42,11,12,00,CD,2E,42,C2,B49 
760 DATA 1A,42,2E,00,E5,CD,F6,40,21,66,397 
770 DATA 43,11,80,02,CD,2E,42,E1,C2,1A,B45 
780 DATA 42,2C,7D,FE,19,20,E9,C9,2A,39,2E6 
790 DATA 00,36,C9,CD,96,41,F3,2A,39,00,74B 
800 DATA 3A,FA,B8,77,FB,C9,3E,02,CD,27,197 
810 DATA 42,C2,1A,42,21,52,42,11,12,00,A3C 
820 DATA CD,D8,AE,20,FB,3A,52,42,CD,OE,195 
830 DATA BC,3A,53,42,47,4F,CD,38,BC,21,744 
840 DATA 54,42,3E,10,3D,F5,E5,46,48,CD,302 
850 DATA 32,BC,E1,23,Fl,20,F3,2E,00,E5,E57 
860 DATA 11,80,02,21,66,43,CD,D8,AE,20,73B 
870 DATA FB,El,E5,CD,F1,40,E1,2C,7D,FE,BE8 
880 DATA 19,20,E8,C9,2A,39,00,36,C9,CD,508 
890 DATA F6,41 , F3,2A, 39,00,3A, FA, B8,77 , FA2 
900 DATA FB,C9,FE,01,C0,1A,B7,C8,4F,EB,OBF 
910 DATA 2 3,5 E,2 3,5 6,AF,4 7,EB,11,6 6,4 2,5 9 3 
920 DATA ED,BO,12,CD,27,42,20,OA,11,00,F62 
930 DATA 01,21,66,42,CD,2E,42,C8,21,39,265 
940 DATA 42,06,19,7E,23,CD,5A,BB,10,F9,DOB 
950 D£TA C9,21,65,42,77,11,01,00,06,00,343 
960 DATA C5,CD,DB,AE,C1,C8,10,F8,C9,07,2E7 
970 DATA 45,6D,70,66,61,65,6E,67,65,72,96C 
980 DATA 20,6E,69,63,68,74,20,62,65,72,DEO 
990 DATA 65,69,74,21,OF7 
1000 ' 

1010 DATA F3,01,C4,7F,ED,49,C9,21,Fl,BA,ID 
8 

1020 DATA C3,DD,BC,689 
1030 ' 

1040 pr=o 

1050 FOR i=start TO start+length-l STEP 10 

1060 FOR j=i TO i+9 

1070 READ a$:a=VAL("&"+a$):POKE j,a 

1080 pr=(pr+(j-i+l)*a)MOD 4096 

1090 length=length-l:IF length=0 THEN j=i+ 

9 

1100 NEXT 
1110 READ a$ 

1120 IF VAL("&"+a$)<>pr THEN PRINT"Pruefsu 

mmenfehler in "zeile:STOP 

1130 zeile=zeile+10 

1140 NEXT 

1150 RETURN 


[1705] 
[2313] 
[1383] 
[2018] 
[2351 ] 
[1389] 
[1689] 
[1551] 
[1313] 
[2467] 
[1654] 
[ 2010 ] 
[1180] 
[1843] 
[ 2012 ] 
[1400] 
[1298] 
[2592] 
[2846] 
[1058] 
[1967] 
[1439] 
[1897] 
[1313] 
[2006] 
[1453] 
[1353] 
[2526] 
[1758] 
[1631] 
[1662] 
[1194] 
[1569] 
[1172] 
[1517] 
[2433] 
[2594] 
[1914] 
[1934] 
[1273] 
[1992] 
[1804] 
[1775] 
[863] 
[1682] 
[1778] 
[1861 ] 
[1074] 
[3388] 
[1243] 
[1760] 
[1305] 
[2769] 
[2570] 
[ 2010 ] 
[1612] 
[2511] 
[ 2210 ] 
[574] 
[117] 
[2914] 

[621] 

[117] 

[117] 

[2163] 

[818] 

[1247] 

[977] 

[3140] 

[350] 

[309] 

[5239] 


[568] 

[350] 

[555] 


Listing LOG6128 BAS 


20 '= T R 0 N 

30 ' = fuer 2 gekoppelte CPCs = 

40 '=-- 

50 ' = 1990 programmiert = 

60 '= von Andreas Stroiczek = 

80 ' 

90 'Initialisierung 

100 DEFINT a-z:MODE 1:PRINT"Bitte warten.. 

II 

110 INK 0,0:INK 1,11:INK 2,15:INK 3,22:BOR 
DER 2 

Listing TRON.BAS 


[1764] 

[569] 

[1149] 

[968] 

[1365] 

[1818] 

[1764] 

[117] 

[1300] 

[2041] 


[2223] 


120 ENV 1,1,8,1,1,-8,1:ENV 2,1,15,1,15,-1, 
3:ENV 3,1,7,1,7,-1,4 
130 LOAD"transmc",&AED8 
140 MEMORY &3FFF 

150 RESTORE 790:zeile=790:start=&4F00:leng 
th=63:GOSUB 650 

160 RESTORE 798 :zeile=798:start=&4000:leng 
th=1417:GOSUB 650 

170 GameStart=&4000:Init=&4003:ScrUpdate=& 

4006:WaitComp=&4009 

180 Frme=&BD19 

190 f=0:crash=0 

200 ON BREAK GOSUB 570 

210 GOSUB 510 

220 ' 

230 'Spielerkonfiguration abfragen 
240 MODE 1:PRINT"<1> oder <2> Spieler?" 

250 GOSUB 470:SpielerAnzahl=a:POKE &BAFF,a 
-1 

260 MODE 1:PRINT"l. oder 2. Computer?" 

270 GOSUB 470:SpielerNr=a:POKE &BAFE,a-l 
280 ' 

290 MODE 1 

300 CALL WaitComp 

310 ' 

320 'Hauptschleife 

330 MODE 1:LOCATE 21,12:PRINT"Hits:"crash: 
LOCATE 4,14:PRlNT"Get ready!" 

340 CALL Init:FOR i=l TO 1200:NEXT:CALL Sc 
rUpDate 

350 FOR i=l TO 3:SOUND 1,100,50,0,1:NEXT:S 

OUND 1,50,2,0,1 

360 IF(SQ(1)AND 7)<4 THEN 360 

370 CALL Frme:a=1500+SpielerNr*500:SOUND 2 

,a,&FFFF,6:SOUND 4,a+2,&FFFF,3 

380 CALL GameStart,@f:IF f THEN a=2:crash= 

crash+l ELSE a=3 

390 SOUND 129,4000,100,0,a,,31:SOUND 130,2 
000,100,0,a:SOUND 132,1000,100,0,3 
400 CALL WaitComp 

410 WHILE INKEY$<>"":WEND:FOR i=l TO 1000: 
NEXT:WHILE INKEY$<>"":WEND 

420 a$=UPPER$(INKEYS):IF a$=""THEN 420 

421 IF a$="R"THEN crash=0 
430 MODE 1:CALL WaitComp 
440 GOTO 330 

450 ' 

460 'Tasten '1' und '2' abfragen 
470 a$=INKEY$:IF a$=""THEN 470 
480 a=INSTR("12",a$):IF a THEN RETURN ELSE 
470 
490 ' 

500 'OutS 

510 OUT &BC00,1:OUT &BD00,32 
520 OUT &BC00,6:OUT &BD00,31 


530 OUT &BC00,7:OUT &BD00,34 
540 OUT &BC00,2:OUT &BD00,42 
550 RETURN 
560 ' 

570 MODE 2 

580 OUT &BC00,1:OUT &BD00,40 
590 OUT &BC00,6:OUT &BDOO,25 
600 OUT &BC00,7:OUT &BD00,30 
610 OUT &BC00,2:OUT &BD00,46 
620 STOP 
630 ' 

640 'M-Code einiesen 
650 pr=0 

660 FOR i=start TO start+length-l STEP 10 

670 FOR j=i TO i+9 

680 READ a$:a=VAL("&"+a$):POKE j,a 

690 pr=(pr+(j-i+l)*a)MOD 4096 

700 length=length-l:IF length=0 THEN j=i+9 

710 NEXT 

720 READ a$ 

730 IF VAL("&"+a$)<>pr THEN PRINT"Pruefsum 

menfehler in "zeile:STOP 

740 zeile=zeile+l 

750 NEXT 

760 RETURN 

770 ' 

780 'Datas 

790 DATA C3,43,44,00,C3,99,44,00,C3,AB,8DF 

791 DATA 44,00,C3,B1,44,00,C3,C3,44,00,D55 

792 DATA C3,C9,44,00,C3,CF,44,00,C3,D5,A28 

793 DATA 44,00,C3,DC,44,00,C3,DD,44,00,01A 

794 DATA C3 , E4,44,00 , C3 , E5,44,00 , C3 , EC, E8D 

795 DATA 44,00,C3,F3,44,00,C3,FA,44,00,5C3 

796 DATA C3,01,45,757 

797 ' 

798 DATA C3,5E,40,C3,11,40,C3,57,40,3A,3B1 

799 DATA FF,BA,B7,C8,C3,6D,41,2A,39,00,6DE 

800 DATA 7E,32,98,45,AF,32,8F,45,32,92,CBA 

801 DATA 45,3E,FF,32,94,45,21,00,30,22,9AD 

802 DATA 89,45,26,C0,22,8B,45,3A,FE,BA,603 


Listing TRON BAS 


[2956] 

[1339] 

[758] 

[3879] 

[2923] 

[3594] 

[336] 

[645] 

[677] 

[919] 

[117] 

[1547] 

[2546] 

[3024] 

[3712] 

[2716] 

[117] 

[506] 

[499] 

[117] 

[ 866 ] 

[5957] 

[2866] 

[3515] 

[791] 

[2999] 

[2964] 

[6123] 

[499] 

[3459] 

[1832] 

[989] 

[2882] 

[506] 

[117] 

[ 1001 ] 

[1378] 

[4338] 

[117] 

[503] 

[574] 

[907] 

[1188] 

[1270] 

[555] 

[117] 

[513] 

[790] 

[901] 

[1192] 

[1282] 

[464] 

[117] 

[1467] 

[117] 

[2163] 

[818] 

[1247] 

[977] 

[3140] 

[350] 

[309] 

[5239] 

[564] 

[350] 

[555] 

[117] 

[433] 

[2024] 

[1853] 

[1491] 

[1874] 

[1969] 

[1345] 

[1031] 

[117] 

[1649] 

[1579] 

[1386] 

[2044] 

[1824] 


72 PC 4/5’91 






3 DATA B7,20,0A,26,24, 

4 DATA 14,18,08,26,68, 

5 DATA 18,22,8D,45,32, 

6 DATA 7B,32,97,45,C3, 

7 DATA 45,C3,EA,42,2A, 
3 DATA CD,09,40,CD,09, 
7 DATA 32,96,45,32,95, 
3 DATA 67,28,08,32,93, 
L DATA 07,4F,B7,3E,00, 

2 DATA 45,28,28,3A,95, 

3 DATA 28,1F,79,32,95, 
1 DATA 6F,E6,OC,FE,OC, 
5 DATA 28,DE,3A,96,45, 
5 DATA 96,45,A4,CD,4B, 
1 DATA 21,OF,OF,19,EB, 
i DATA 00,E6,FO,28,05, 

) DATA 2A,8B,45,11,DE, 

) DATA E6,C7,67,3A,97, 

. DATA 3C,44,3A,FF,BA, 

! DATA F5,ED,78,1F,30, 

( DATA 28,12,3A,FF,BA, 
t DATA 45,B7,28,06,3D, 

> DATA 3A,8F,45,4F,3A, 

> DATA 41,3A,FF,BA,B7, 

1 DATA 78,1F,38,FB,18, 

I DATA F5,ED,78,1F,30, 
l DATA 3A,92,45,Bl,CA, 

) DATA 71,F3,2A,39,00, 

DATA C9,ED,5B,89,45, 

! DATA 19,DA,76,43,CB, 

I DATA 19,DA,96,43,CB, 

- DATA 95,45,18,E6,C9,. 

- DATA 17,21,90,45,11,1 

> DATA 20,FB,21,8D,45,: 
1 DATA AE,20,FB,C9,21,1 
I DATA CD,DB,AE,20,FB, I 

DATA 90,45,11,03,00,1 
DATA C9,CD,6D,41,2A,! 
DATA 45,ED,52,20,05,: 
DATA 21,OF,OF,19,EB,C 
DATA 45,EE,0C,DD,77,( 
DATA 90,45,95,6F,38, ( 
DATA 03,FE,F1,D8,3A,< 
DATA FE,11,DO,18,03,1 
DATA 5F,7D,C6,0F,6F,i 
DATA 29,29,29,29,CB,; 
DATA 45,19,7C,F6,CO,£ 
DATA 44,21,00,50,OE,; 
DATA 36,04,23,77,23,3 
DATA F5,06,81,AF,36,C 
DATA 23,77,23,10,F5,C 
DATA 50,11,8A,0 0,3 E,1 
DATA 77,23,10,FC,OD,-2 
DATA 11,77,23,10,FC,1 
DATA 10,FC,0D,20,F0,C 
DATA 23,10,FC,OD,20,F 
DATA CD,77,42,16,7C,1 
DATA 16,2C,1E,50,CD,7 
DATA 50,CD,0A,43,11,A 
DATA IC,DD,36,01,18,E 
DATA 36,03,18,DD,36,0 
DATA 36,00,14,DD,36,0 
DATA 18,DD,36,03,24,D 
DATA 19,DD,36,00,14,D 
DATA 36,02,2C,DD,36,0 
DATA 30,DD,19,DD,36,0 
DATA 34,DD,36,02,38,D 
DATA 36,04,30,DD,19,D 
DATA 36,01,38,DD,36,0 


!,2E,31,3E,08,1E,E33 [2276] 
I,2E,31,3E,04,1E,6DA [2047] 
,96,45,32,95,45,9D1 [1907] 
',09,42,ED,5B,8D,379 [2511] 
l, 39,00,36,C9,D5,C45 [2481 ] 
,44,E6,0F,28,06,B43 [1911] 
,45,CD,09,44,CB,2F4 [2378] 
,45,E6,0F,4F,18,381 [1808] 
,32,93,45,3A,96,682 [1872] 
,45,B9,3A,96,45,BD5 [1616] 
,45,3A,96,45,B4,2B0 [1712] 
,28,E3,AD,FE,03,EDC [1802] 
,2F,A4,20,04,3A,EID [1680] 
,41,ED,5B,8D,45,854 [969] 

,CD,OA,43,DD,7E,198 [1860] 
,3E,FF,32,8F,45,8A3 [2121] 
,03,19,7C,F6,C0,413 [1652] 
,45,DD,77,00,CD,EFA [1668] 
,B7,C4,A5,41,06,95D [1369] 
,FB,3A,93,45,B7,4A3 [1484] 
,B7,28,30,3A,94,BEF [1862] 
,32,94,45,18,24,903 [2064] 
,92,45,B1,C2,3D,193 [1382] 
,20,09,06,F5,ED,ECE [2349] 

, 05,CD,A5,41,06,1F6 [2012] 

,FB,3A,8F,45,4F,90C [1331] 
,74,40,El,71,23,2C6 [1776] 
, 3A,98,45,77,FB,C28 [1467 ] 
, 2A,8B,45,4F,CB,4FF [2284] 
,19,DA,41,43,CB,00E [2120] 
,19,DA,A9,43,3A,913 [1286] 

, 3A,FE,BA,B7,20,7CC [1870] 
,03,00,CD,D8,AE,01C [2402] 
,11,03,00,CD,DB,660 [1534] 

, 8D,45,11,03,00,3DC [1714] 
,06,20,10,FE,21,98C [2133] 

,CD,D8,AE,20,FB,5F9 [2491 ] 

, 8D,45,ED,5B,90,0E5 [2239] 

, 3E,FF,32,8F,45,649 [1431] 

,CD,0A,43,3A,97,ACC [2759] 

, 00,2A,8D,45,3A,D17 [2078] 
,05,FE,11,DO,18,29C [1158] 
,91,45,94,38,05,803 [1270] 

, FE,Fl,D8,C6,OF,6D9 [1715] 
,26,00,54,29,29,37A [1851] 

, 23,19,EB,2A,8B,8CC [1614] 

, E6,C7,67,C3,3C,98F [1308] 
,20,06,2B,3E,0C,083 [1728] 
,77,23,77,23,10,D07 [2077] 
,08,23,77,23,77,E13 [1683] 

OD, 20,E0,21,00,DED [2008] 
10,OE,11,06,AC,96B [1499] 
■20,F7,0E,5E,06,A04 [1251] 
19,06,11,77,23,76D [2227] 

OE, 11,06,AC,77,A79 [1924] 
F7,16,2C,1E,2C,90E [2346] 
IE,2C,CD,77,42,D66 [2192] 
77,42,16,7C,1E,E3F [1502] 
AC,00,DD,36,00,E7E [807] 
DD,36,02,18,DD,1A4 [1642] 
04,24,DD,19,DD,829 [2375] 
01,IC,DD,36,02,6C9 [2001] 
DD,36,04,30,DD,B17 [831] 
DD,36,01,14,DD,DF6 [919] 
03,30,DD,36,04,D8E [2009] 
00,14,DD,36,01,DA9 [2373] 
DD,36,03,3C,DD,2D7 [2131] 
DD,36,00,34,DD,8B4 [1127] 
02,38,DD,36,03,896 [1101] 


872 DATA 

873 DATA 

874 DATA 

875 DATA 

876 DATA 

877 DATA 

878 DATA 

879 DATA 

880 DATA 

881 DATA 

882 DATA 

883 DATA 

884 DATA 

885 DATA 

886 DATA 

887 DATA 

888 DATA 

889 DATA 

890 DATA 

891 DATA 

892 DATA 

893 DATA 

894 DATA 

895 DATA 

896 DATA 

897 DATA 

898 DATA 

899 DATA 

900 DATA 

901 DATA 

902 DATA 

903 DATA 

904 DATA 

905 DATA 

906 DATA 

907 DATA 

908 DATA 

909 DATA 

910 DATA 

911 DATA 

912 DATA 

913 DATA 

914 DATA 

915 DATA 

916 DATA 

917 DATA 

918 DATA 

919 DATA 

920 DATA . 

921 DATA • 

922 DATA ■ 

923 DATA ' 

924 DATA 1 

925 DATA ■ 

926 DATA < 

927 DATA I 

928 DATA - 

929 DATA 1 

930 DATA ( 

931 DATA ! 

932 DATA I 

933 DATA I 

934 DATA I 

935 DATA ( 

936 DATA £ 

937 DATA / 

938 DATA £ 

939 DATA l 


\ 38,DD,36,04,3C,C9,CD,0A,43,2A,B06 [1673] 
} 8B,45,OE,20,06,20,E5,CD,3C,44,F12 [565] 

\ E1,23,23,CB,9C,DD,23,10,F3,11,6B2 2595] 

* 8C,00,DD,19,0D,20,E9,C9,E5,D5,840 2149 

} 16,00,21,AC,00,CD,22,43,Dl,5A,EIA [2081 

) 16/00,19,11,00,50,19,E5,DD,El,905 [1743] 

* El,C9,AF,BC,28,03,BA,D8,EB,7B,A36 [2023 
1 B2,20,02,EB,C9,7D,B7,C8,6C,1F,5F8 [1419 

v 30,02,19,D8,CB,23,CB,12,D8,B7,37B [2328] 
^ 20,F3,C9,32,96,45,3A,8D,45,3C,7F3 [1541 
^ 32,8D,45,01,40,00,09,0E,20,EB,64F [2222] 
v °9/EU/CD,D4,43,01,D4,14,DD,09,DC5 [1425] 
V 01,CO,07,09,7C,F6,CO,E6,C7,67,F24 [2622 
1 06,20,E5,CD,3C,44,El,23,23,CB,879 [1861 
1 9C,DD,23,10,F3,C9,32,96,45,3A,FAC [2303 
1 80 /45,3D,32,8D,45,01,CO,FF,09,5F9 [18161 
1 OE,EO,EB,09,EB,CD,EA,43,CD,60,784 2104 

l 43,ED,5B,89,45,C3,D7,43,32,96,258 [11991 
1 48 /3A,8E,45,3D,32,8E,45,2B,2B,167 [1262 
' ^'^'° 4 ' 43 ' C3 ' C1 /43,32,96,45,A56 [2620] 
l 3A,8E,45,3C,32,8E,45,23,23,13,6AD [1547] 

1 £p,p4,43,01,lF,00,DD,09,0E,3E,3C7 [2544] 

1 °9, 7C ,F6,C0,E6,C7,67,06,20,CD,FF5 [15801 
‘ 3 £' 44 ' 11 ,AC,°0,DD,19,10,F6,C9,A79 [1552] 
Cp,EA,43,F3,06,BC,0E,0D,ED, 4 9, 2 2E [2193] 
2n'^ D,59,05,0D/ED ' 49 ' 04 ' ED ' 51 / 898 [2290] 
FB,C9,7A,F6,30,E6,33,57,ED,53,66F [1578 

^™'Zn'£ 6 ' C0 ' E6 ' C7 ' 67 ' 22 ' 8B ' 53B [1485] 
45,ED,5B,8D,45,CD,OA,43,ED,5B,F07 [1791] 
89 ' 48 /C9,01,0E,F4,ED, 4 9,06,F6,B0C [1093] 
ED,78,E6,30,4F,F6,C0,ED,79,ED,1D5 [779] 
22,04,3E,9 2 ,ED, 7 9, 79 ,F6, 49 ,° 5 ,A6 1 [2136] 
ED,79,06,F4,ED,78,F5,06,F7,3E,991 [1510 
83 ' E J?, 79 , 05 , ED ,49,F1,2F,E6,1F,51E [1630] 
67,CB,A4,C9,DD,5E,00,16,4F,D5,E79 [1624] 
™'ii ,00 ' 00 ' 72 ' 23 ' 73 ' 2B ' 7C ' C6 /305 [1552] 

22'^ , 22 , o2'2 3 ' 2B,7C,C6,08 ' 67 ' 6EO [2601] 

72,23, 73 , 2B , 7C , C 6,0 8 ,6 7 ,72,23,97D [1668] 
73,2B,7C,C6,08,67,72,23,73,2B,B53 [1553] 
7C,C6,08,67,72,23,73,2B,7C,C6,2B0 [1957] 
08,67,72,23,73,2B,7C,C6,08,67,68B [2609 
7 2,23,73,2B,7C,C6,08,67,D0,D6,374 [1758] 
40,67,7D,C6,40,6F,D0,24,7C,E6,113 [2143] 
07,CO,7C,D6,08,67,C9,11,80,10,51F [1193] 
CD,6E,44,11,F0,F0,CD,76,44,11,E81 [1340] 

80.10, C3,6E,44,11,80,10,C3,46,273 [17681 
44,11,00,00,CD,6E,44,11,FO,FO,DA2 [2183] 
22 , I2'22 ,11,00,00/C3 ' 6E ' 44 ' 11 ' C3E [1346] 

^ , f ? , S 2' 46 ' 44 ' 11 ' 0F ' 0F ' C3 ' 46 ' EA1 [ 1954 i 

44.11, FF,FF,C3,46,44,FD,21,19,75A [1984] 

45,C3,05,45,C9,FD,21,29,45,C3,05D [1334] 
05,45,C9,FD,21,39,45,C3,05,45,410 [2096] 
Fp,21,49,45,C3,05,45,FD,21,59,999 [1915] 
45,C3,05,45,FD,21,69,45,C3,05,E52 [1467] 
45,FD,21,79,45,C5,06,08,FD,56,57A [2259] 
00,FD,5E,01,FD,23,FD,23,CD,7E,279 [1989] 
44,10,F1,C1,C9,7F,FF,3F,FF,1F,2B9 [1631] 
FF,OF,FF,0F,7F,0F,3F,0F,1F,0F,DC2 [2360] 
OF,FF,FF,FF,FE,FF,FD,FF,FA,FF,35B [2232 ] 
E5,FE,FA,FD,F5,FA,FA,7F,FF,3F,EOE [1961 ] 
FE,1F,FD,0F,FA,0F,F5,1E,7A,2D,568 [2048] 
B5,5A,5A,F5,F5,FA,FA,F5,F5,FA,737 [454] 
FA,F5,F5,FA,FA,F5,F5,FA,FA,0F,365 [1774] 
0F,0F,1E,0F,2D,0F,5A,0F,A5,1E,F4A [1884] 
5A,2D,A5,5A,5A,A5,A5,5A,5A,A5,9E4 [1225] 
A5,5A,5A,A5,A5,5A,5A,A5,A5,5A,523 [2747] 
5A,F5,F5,7A,FA,B5,F5,5A,FA,A5,E0D [2562 
F5,5A,7A,A5,B5,5A,5A,BD3 [1611 


Listmg TRON.BAS 


Lisllng TRON.BAS 


Public-Domain für Amstrad CPC und Joyce 

Preiswerte Programme für CPC und Joyce mit deutscher Anleitung - so macht Software Spaß! 


1 JRT-Paäcal - vollständiger Pascal-Compiler • 

2 Z80-A»cmblcr, Disasscmbler, Linker. Debugger 

3 künstliche Intelligenz • XI.ISP und EPROLOG • 

4 C-Compilcr Siuutl-C ■ mit Hicßkomma/aliten • 

5 FORTH-83 ■ Komfortabler Forth-Intcrprcter 

6 Utilities: Dateikompressor. Diskmonitor, Dateiretter ... 

7 Programme aus dem Grotten CPC-Arbeltsburh ’* 

8 Adventurc Cid.rssal Cave (Programm englisch) * 

9 Disk Utilities - kopiert geschützte Software •• 

10 BiritasJc - Umfangreiche Bavic-Erweitcrung " 


11 Basic-Compilcr E-BASIC für CP/M 

12 Turbo Pascal-Programme - Turbivlnlincr. Grafik 

13 Programme aus Den Joyce programmieren 

14 Programme aus CPC-Datetverwaltiing " 

1.9 Word Star-Tools - Fußnoten, Indes, Spaltendruck • 

16 dBASE-Literalurvrrwultunß * 

17 C-Intcrprder SCI - Spielend C lernen • 

15 MncroPack/ZSO - Makroassembler, Debugger. Linker 
IV DKÜ-Prograinm MEX - Datenübertragung • 


* Auf CPC-464/664 nur mit Spcichcrerweilcrung (min. 64K) • • Nicht geeignet für Joyce 

Nur DM 30.- pro Diskette inklusive Porto. Oder drei beliebige Disketten für nur DM 70,-! 
Diskettenformat 3" oder Vortex 5,25". Nachnahme oder Vorauskasse. Ausland nur Vorauskasse. 

MARTIN KOTULLA 

Kronacher Straße 7,8500 Nürnberg 90, Telefon 09 11/30 49 44 


fajjlk- & Qnmndmofjtwm 


LABEL-MASTER t.0.3“-Diskette * Handbuch DM 64,95 
Vergessen Sie einfach alles, was Sla an Etiketten-Programmen für den CPC können, Labei-Mastor vetbindet die 
einfache Bedienung eines herkömmlichen Etlketten-Programms mit den grafischen Fähigkeiten von Pro-Design 
Viele wunderschöne Grafiken per Knopfdruck abrutbar. 9- und 24-Nadel-Dtuckertreibet Mit Label-Master er¬ 
stellen Sie keine Nullachttüiilzehn-Etiketten sondern kleine Kunstwerke 
PRO-DESIGN 2.1,3"-Diskette + Handbuch DM 64,95 

Der Klassiker unter den DTP-Programmon Im Handumdrehen erstellen Sie professionelle Grafiken, Rahmen, 
Schmucklinien. Symbole und 10 Schritten + CPC-Zelchensatz (alte mit äöüÄOÜß) 50 Zusaoschriften erhältlich 
tö Druckformate!Kc Darstellungsformate. kostenlose Druckeranpassung usw, usw, 

PRO-BOOSTER 1.2,3"-Dlskette + Handbuch DM 34.95 

Dokumenten-Druokprogramm. Grafik-Schriftbandgeneratoi. Snapsbolutility. Die ideale Ergänzung zu Pro-Design 
DESK-ROYAL 1.0, 3'-Drske!te + Handbuch DM 54,95 

38 neue BASIC-Befehle sorgen für PC-Luxus wie Desktopsleuerung und Dialogboxen jetzt auch in Ihren Pro¬ 
grammen. aut Ihrem CPC! Kinderleichte Anwendung. Software vom Feinsten für alle kreativen BASlC-Freunde. 
Vorsand gegen Varrechnungsschock (+3.- DM) oder Nachnahme 1*6, - OM) Weitere Angebote ln unserem Kata‘og. 


KOSTENLOSER 


AXEL WEBER, POSTF, 230154, D-5600 WUPPERTAL EB 

Crusaöer Software K L !"S 
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Backup 1 zu 1 

ULTRADISC - Kopier¬ 
programm bis 42 Spuren 

Verwenden Sie auch ein Programm, mit dem Sie mehr 
Daten als üblich auf Ihre normalen Disketten bringen 
können? Dann haben Sie sicherlich auch Probleme bei 
der Erstellung von Sicherheitskopien. Ihr altherge¬ 
brachtes Kopierprogramm streikt hier. Was tun? 


Niemand arbeitet gern mit seinen wertvollen Originaldis¬ 
ketten. Man sollte stets bemüht sein, nur Kopien zu ver¬ 
wenden. Es wurden nun schon viele Programme veröffent¬ 
licht, deren Ziel es ist, die geringe Diskettenkapazität zu er¬ 
höhen. Benutzt man aber solche Programme, die ja die nor¬ 
malen Einstellungen des Laufwerks, wie Sektoren pro Spur 
und anderes ändern, scheitern die meisten Kopierprogram¬ 
me. Hier hilft Ihnen ULTRADISC. 

Das Programm w urde auf dem CPC 464 
entwickelt 

Es kann bis zu 40 Sektoren pro Spur und maximal bis zur 
Spur 42 lesen und natürlich auch schreiben. 

ULTRADISC wurde auf einem CPC 464 mit Dk’tronics 64 
kByte Erweiterung und 5,25-Zoll-Zweitlaufwerk entwickelt. 
Es läuft unter AMSDOS mit allen 40-Spur-Laufwerken, 
nicht aber unter VDOS. Die zweiten 64 kByte des CPC 6128 
beziehungsweise des CPC 464/664 mit Dk’tronics Erweite¬ 
rung werden voll ausgenutzt. Somit stehen 90 kByte Puffer 
zur Verfügung. Sollten Sie aber als Benutzer eines CPC 


464/664 keine Speicherweiterung benutzen, müssen Sie fol¬ 
gende Zeilen aus dem Listing streichen: 

450, 600, 610, 650, 860, 1120. 

Die Zeile 590 müssen Sie in dem Fall auch wie folgt ändern: 

590 if buf >42000 then 1130 

Nach dem Start von ULTRADISC erscheinen zwei Fenster. 
Das rechte Fenster zeigt die momentan eingestellten Kopier¬ 
parameter, Fehlermeldungen, die momentan kopierte Spur 
und anderes. Links befindet sich ein kleines Menü, in dem 
durch Betätigung der Tasten “1“ oder “2“ die Wahl zwi¬ 
schen zwei Unterprogrammen getroffen werden kann. Falls 
die voreingestellten Parameter geändert werden müssen, 
wählen Sie mit der Taste < 2 > die Funktion Parameter ein¬ 
stellen . 

Die Parametereinstellungen betreffen das Quellaufwerk, das 
Zicllaufwerk. die erste und die letzte zu kopierende Spur. 
Danach wählen Sie die Option Disc kopieren mit der Taste 
< 1 >, die den Kopiervorgang auslöst. Beim Kopieren mit 
einem Laufwerk müssen Sie allerdings das Wechseln zwi¬ 
schen Quell- und Zieldiskette in Kauf nehmen, wozu Sie aber 
durch das Programm aufgefordert werden. Drücken Sie 
während des Kopiervorgangs die SPACE-Tastc, werden Sie 
gefragt, ob Sie die Routine abbrechen wollen. Dies ist beson¬ 
ders dann hilfreich, wenn einmal falsche Parameter einge¬ 
stellt wurden. 

Menügeführte Programmanwendung 

Während des Kopierens werden Ihnen sämtliche Sektor-IDs 
und die Länge der einzelnen Sektoren in Bytes angezeigt. Ge¬ 
legentlich erscheinen daneben Informationen zu den jeweils 
gelesenen Spuren. CM (Control Mark) bedeutet, daß es 
sich um einen Sektor mit gelöschter Data Adress Mark han¬ 
delt, der Sektor also als gelöscht gilt. DE (Data Error) be¬ 
deutet, daß der Inhalt des Sektors fehlerhaft ist und die ein- 
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getragene Checksumme nicht mit dem Inhalt des Sektors 
übe re in stimmt. 

WC (Wrong Cylinder) zeigt an, daß die in der ID eingetra¬ 
gene Spur oder die Kopfnummer nicht mit der physikalischen 
Nummer übereinstimmt. ND (No Data) bedeutet, daß der 
Sektor nicht vorhanden ist oder in der ID beziehungsweise im 
Sektor ein Checksummenfehler gefunden wurde. Im rechten 
Teil des Bildschirms werden Anzahl der Sektoren, erster 
Sektor, das GAP (die Lücke zwischen den Sektoren), der 
verbrauchte Speicher in kBytes sowie eventuelle Fehlermel¬ 
dungen angezeigt. 

Hinweise zu den Listings 

Tippen Sie zuerst den Datagenerator ULTRA.DAT ab und 
Speichern Sie ihn auf einer leeren Diskette. Aufgrund einer 
im Listing installierten Kontrollroutine erhalten Sie nach 
dem Abtippen und Starten des Laders eventuelle Datenfehler 
zeilenweise angezeigt. Wenn das Programm fehlerfrei ist, 
wird ein MC-Programm unter dem Namen ULTRA.BIN er¬ 
stellt und abgespeichert. 

Jetzt können Sie das Hauptprogramm ULTRA.BAS abtip¬ 
pen. Achten Sie dabei genau auf die Variablennamcn. Wenn 
Sie eine Variable falsch abgetippt haben, kann es unter Um¬ 
ständen zu Fehlern beim Kopieren kommen. Vor allem dür¬ 
fen Sie die Prozentzeichen hinter einigen Variablen nicht 



ULTRAD/SC - Sicherungskopien ohne Probleme 


vergessen, da sonst Realvariablen benutzt werden, die dop¬ 
pelt so viel Speicher benötigen wie Integervariablen. Alle 
Listings können Sie nach dem Abtippen natürlich mit dem 
CHECKSUMMER der PCI (siche Ausgabe 2-3/91) auf Feh¬ 
lerfreiheit überprüfen. 

(Oliver Mayer/jg) 


für 464, 664, 6128 



10 CLEAR:DIM id%(32,4):LOAD"ULTRA.BIN":CAL [5688] 
L &A4B7:IF PEEK(9)<>130 THEN POKE &ABA4,&4 
4:POKE &ABA5,&EF 

20 MEMORY &1FFF:FOR a%=&AFOO TO &AF10:POKE [2327] 


a%,255:NEXT 

30 MODE 2:BORDER 13:INK 0,0:INK 1,26 [1964] 

40 PRINT" ULTRADISC Version 1.2 --- [4548] 


- Written 1988 by Oliver 

Mayer " 

50 WINDOW 1,50,3,25:WINDOW #1,52,80,3,25:P [4434] 
LOT 401,0:DRAWR 0,400:PLOT 402,0:DRAWR 0,4 
00 


60 sd%=0:dd%=0:anft%=0:endt%=41:buf=&2000 [3305] 

70 getid%=&A930:comm%=&A933:form%=&A936:DE [2734] 
F FN dpb%(a%)=(&A890+a%*64) 

80 DEF FNready%=PEEK(&BE4C)AND 8:DEF FNpro [4246] 
t%=PEEK(&BE4D)AND 2 

90 CLS:PRINT" - HAUPTMENUE - [1574] 


100 PRINT: PRINT" 1 . DISC KOPI [28361 

EREN" 

110 PRINT:PRINT" 2 . PARAMETER EINSTE [2526] 

LLEN" 

120 LOCATE 2,8:PRINT"Bitte entsprechende T [4209] 
aste druecken." 

130 CLS#l:PRINT#l,"KOPIERPARAMETER" [1493] 

140 LOCATE#1,1,5:PRINT#1,"Quelldisc : [3550] 
CHR$(sd%+65) 

150 LOCATE#l,1,6:PRINT#1,"Zieldisc : [4673] 

CHR$(dd%+65) 

160 LOCATE#l,1,7:PRINT#1,"Erste Spur :";a [2742] 
nf t% 

170 LOCATE#l,l,8:PRINT#l,"Letzte Spur :";e [4576] 
ndt% 

180 LOCATE#l,l,10:PRINT#1,"FORMAT INFOS" [1951] 
190 LOCATE#l,l,12:PRINT#1,"Sektoren pro Sp [2760] 
ur : " 

200 LOCATE#l,1,13:PRINT#1,"Erster Sektor [3290] 
: &" 

210 LOCATE#1,1,14:PRINT#1,"GAP#3 bei Forma [3039] 
t : &" 

220 LOCATE#1,1,18:PRINT#1,"FEHLERMELDUNGEN [3326] 


230 a$=UPPER$(INKEYS):IF a$=""THEN 230 [1822] 

240 IF a$="l"THEN 410 [960] 

250 IF a$="2"THEN 270 [704] 

260 GOTO 230 [423] 

270 CLS:PRINT" Parameter einstellen" [2354] 


280 LOCATE 2,3:PRINT"Quelldisc in Drive : [3285] 
";:CALL &BB81 

290 a$=UPPER$(INKEYS):IF a$="" THEN 290 [1602] 
300 IF a$<"A" OR a$>"B" THEN 290 [1710] 
310 CALL &BB84:sd%=ASC(a$)-65:PRINT a$ [1762] 
320 LOCATE 2,5:PRINT"Zieldisc in Drive : [2770] 
";:CALL &BB81 

330 a$=UPPER$(INKEYS):IF aS="" THEN 330 [1826] 
340 IF a$<"A" OR a$>"B" THEN 290 [1710] 
350 CALL &BB84:dd%=ASC(a$)-65:PRINT a$ [2500] 
360 LOCATE 2,7:INPUT"Erste Spur : ",anft% [1784] 
370 IF anft%<0 OR anft%>42 THEN 360 [1246] 
380 LOCATE 2,9:INPUT"Letzte Spur : ",endt% [3302] 
390 IF endt%<anft%OR endt%>42 THEN 380 [2334] 
400 GOTO 90 [312] 


410 POKE &BE78,1:POKE &BE66,2:IF sd%=dd% T [2395] 
HEN 430 

420 CLS:PRINT" Bitte Quelldisc in Drive [8467] 
CHRS(sd%+65):PRINT" und Zieldisc in Drive 
";CHRS(dd%+65);" einlegen.":CALL &BB18 
430 tr%=anft%:ft%=tr% [788] 

440 b$="gelesen":buf=&2000:kb=buf:CALL &BB [4742] 

450 OUT &7F00,&C0:bank%=0 [732] 

460 IF sd%odd% THEN 480 [1458] 

470 CLS:PRINT" Bitte Quelldisc in Drive "C [6490] 
HR$(sd%+65)" einlegen.":CALL &BB18 
480 CLS:PRINT" Lese Spur :";tr% [1466] 

490 CALL getid%,buf,sd%,tr%:IF FNready%THE [19961 
N GOSUB 1090:GOTO 490 

500 anz%=PEEK(buf):buf=buf+l:PRINT:IF anz% [2506] 
=255 THEN 630 

510 FOR C%=1 TO anz%:FOR a%=0 TO 3:id%(c%, [3733] 
a%)=PEEK(buf):buf=buf+1:NEXT:NEXT 
520 kb=kb+anz%*4+l:GOSUB 1060:FOR sec%=l T [3998] 
O anz%:PRINT USING"##.";sec%; 

530 CALL comm%,buf, &46,sd%,id%(sec%,0),id% [4448] 
(sec%,1),id%(sec%,2),id%(sec%,3) 

540 IF FNready%THEN GOSUB 1090:GOTO 530 [1706] 

550 GOSUB 970:IF a$="J"THEN 90 [1938] 

560 IF PEEK(&BE4E) AND 64 THEN d%=&49 ELSE [30831 
d%=&45 1 

570 b%=id%(sec%,3) :IF b%>5 THEN b% = 0 ELSE [2847] 
IF b%>2 AND anz%>5 THEN b%=0 

580 bps%=2 A b%*128:buf=buf+bps%:POKE buf,d% [1925] 
:buf=buf +1 

590 IF buf>42000 THEN GOSUB 1120 [1521] 

600 IF buf>31000 AND bank%>0 THEN GOSUB 11 [1941] 

610 IF bank%=5 THEN 1130 [282] 

620 kb=kb+bps%+l:NEXT sec% [1312] 

630 GOSUB 970:IF a$="J" THEN 90 ELSE tr%=t [5393] 
r%+l:lF tr%<endt%+l THEN 480 
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640 b$="geschrieben":buf=&2000:kb-buf:lt%- [5102] 
tr%-l:CALL &BB03 
650 OUT &7F00,&C0:bank%=0 
660 IF sd%odd%THEN 680 

670 CLS:PRINT" Bitte Zieldisc in Drive CH 
R$(sd%+65)" einlegen.":CALL &BB18 
680 FOR tr%=ft%TO lt%:CLS:anz%=PEEK(buf):b 
uf=buf+l:bu=buf 

690 PRINT" Schreibe Spur :";tr%:PRINT 
700 IF anz%=255 THEN 910 

710 FOR c%=l TO anz%:FOR a%=0 TO 3:id%(c%, 
a%)=PEEK(buf):buf=buf+l:NEXT:NEXT 
720 kb=kb+anz%*4+l 

730 IF anz%<10 THEN gap%=60 ELSE IF anz%<l 
5 THEN gap%=20 ELSE gap%=l , 

740 POKE FNdpb%(dd%)+24,1:POKE FNdpb%(dd%) 

+ 15,id%(1,2):POKE FNdpb%(dd%)+16,anz% 

750 POKE FNdpb%(dd%)+18,gap%:POKE FNdpb%(d 

760 + IF , id%(l , ,3)>5 THEN POKE FNdpb%(dd%)+20 

770 CALL form%,bu,dd%,tr%,id%(l,2):IF FNre 
ady%THEN GOSUB 1090-.GOTO 770 
780 IF FNprot%THEN GOSUB HOO:GOTO 770 
790 GOSUB 1060:FOR sec%=l TO anz%:PRINT US 
ING"##.";sec%; 

800 b%=id%(sec%,3):IF b%>5 THEN b%=0 ELSE 
IF b%>2 AND anz%>5 THEN b%=0 
810 bps%=2 A b%*128:d%=PEEK(buf+bps%) 

820 CALL comm%,buf,d%,dd%,id%(sec%, 0),id%( 
sec%,1),id%(sec%, 2),id%(sec%,3) 

830 IF FNready%THEN GOSUB 1090:GOTO 820 EL 
SE IF FNprot%THEN GOSUB HOO:GOTO 820 
840 GOSUB 970:IF a$="J"THEN 90 
850 buf=buf+bps%+l:kb=kb+bps%+l 
860 IF buf>42000 AND bank%=0 OR buf>31000 
AND bank%>0 THEN GOSUB 1120 
870 NEXT S6C% 

880 GOSUB 970:IF a$="J" THEN 90 ELSE NEXT 
tr% 

890 ft%=lt%+l:IF ft%<endt%+l THEN 440 
900 GOTO 90 

910 PRINT" Unformatiert" w . # .... 

920 POKE FNdpb%(dd%)+24,1:POKE FNdpb%(dd%) 

+ 15,255:POKE FNdpb%(dd%)+16,1 ... .. 

930 POKE FNdpb%(dd%)+18,255:POKE FNdpb%(dd 
%)+20,100 

940 CALL form%,&AF00,dd%,tr%,255 
950 IF FNready%THEN GOSUB 1090:GOTO 940 EL 
SE IF FNprot%THEN GOSUB HOO:GOTO 940 

970 LOCATE#l ,1,3: PRINT#1 ,USING" ##" INT ((kb 
-&2000)/1024);:PRINT#1,"k ";b$;SPC(5) 

980 IF INKEY$<>CHR$(32)THEN RETURN 
990 LOCATE#l,1,16:PRINT#1,CHR$(7)"Abbreche 
n J/N 9 " 

1000 OUT &FA7E,1:a$=UPPER$(INKEYS):IF a$ = " 

" THEN 1000 

1010 IF a$="J"THEN 1040 
1020 IF a$="N"THEN 1040 
1030 GOTO 1000 

1040 LOCATE#1,1,16:PRINT#1,SPC(16):RETURN 
1050 RETURN 

1060 LOCATE#l,21,12:PRINT#1,anz%:LOCATE#1, 
23,13:PRINT#1,HEX$(id%(1,2),2) 

1070 LOCATE#1,23,14:PRINT#1,HEX$(gap%,2) 

1080 RETURN A . 

1090 LOCATE#l,1,20:PRINT#1,CHR$(7)"Disc fe 
hlt !!":GOTO 1110 

1100 LOCATE#1,1,20:PRINT#1,CHR$(7)"Disc IS 
t schreibgeschuetzt !!"; 

1110 CALL &BB18:LOCATE#l,1,20:PRINT#1,SPAC 
E$(2 9);:RETURN . , a . 

1120 OUT &7F00,bank%+&C4:buf=&4000:bank%-b 
ank%+l:RETURN 

1130 PRINT" Buffer voll !!":GOTO 640 
Listing; ULTRA.BAS 


[732] 

[1546] 

[4677] 

[4037] 

[1924] 

[962] 

[3733] 

[914] 

[2633] 

[4328] 

[3161] 

[3547] 

[2805] 

[1036] 

[4848] 

[2847] 

[1677] 

[4368] 

[3995] 

[1938] 

[1373] 

[3563] 

[464] 

[2961] 

[ 1111 ] 

[312] 

[1437] 

[3633] 

[4326] 

[1682] 

[4658] 

[548] 

[5002] 

[2534] 

[3120] 

[2957] 

[980] 

[855] 

[339] 

[2523] 

[555] 

[4342] 

[2422] 

[555] 

[4527] 

[4204] 

[3749] 

[1823] 

[1526] 


10 adr=&A200:z=1000 

20 PRINT z;:FOR a=0 TO 15:READ w$:w-VAL( & 
"+wS):POKE adr+a,w:s=s+w:NEXT 
30 READ sum$:sum=VAL("&"+sum$):IF sum<>s T 
HEN PRINT CHR$(7)"Datafehler !!" 

50 adr=adr+16:z=z+10:s=0:sum=0:w=0:IF z<14 
50 THEN 20 

60 PRINT"Fertig . Zum speichern eine Taste 
druecken":CALL &BB 18 
70 SAVE"ULTRA.BIN",b,&A200,&2C3 

Listing: ULTRA.DAT _ _ 


[1179] 

[3614] 

[6685] 

[1040] 

[2989] 

[5577] 

[1440] 


80 END [11°] 

90 DATA C3,39,A9,C3,E1,A9,C3,17,AA,FE, 03, C [2953] 
0,DD,66,05,DD,095C 

100 DATA 6E,04,36,00,23,22,E3,AB,DD,7E,02, 

3 2,DB,AB,DD,7 E,0 6 EB 

110 DATA 00,32,DC,AB,AF,32,El,AB,3A,DC,AB, 

57,3A,DB,AB,5F,085D 

120 DATA DF,D8,AB,DD,2A,E3,AB,DD,2B,CD, Al, 

A9,C0,FE,FF,28,0AFB 

130 DATA 26,CD,Al,A9,32,E0,AB,CD,Al,A9,F5, 

21,4F,BE,ED,5B,097C 

140 DATA E3,AB,01,04,00,ED,B0,ED,53,E3,AB, 

DD,34,00,3A,E0,0829 

150 DATA AB,47,Fl,B8,20,El,C9,DD,77,00,21, 

AA, AB,CD,7 E,AB,0925 

160 DATA C9,01,7E,FB,3E,4A,CD,56,AB,3A,DB, 

AB, CD,56,AB,CD,08F4 

170 DATA 16,AB,C0,3A,51,BE,D8,3E,FF,C9,3A, 

52,BE,FE,01,28,0819 

180 DATA 10,B7,28,17,3D,47,3E,01,87,10,FD, 

FE,11,38,02,3E,04E4 

190 DATA 02,67,2E,00,CD,9E,AB,CD,38,AA,C9, 

26,00,2E,80,18,0611 

200 DATA F3,FE,07,C0,CD,70,AB,DD,66,0D,DD, 
6E,0C,22,E3,AB,08F7 

210 DATA DD,7E,OA,32,E2,AB,DD,7E,08,32 , DB, 

AB,DD,7E,06,32,07D2 

220 DATA DC,AB,DD,7E,04,32,DD,AB,DD,7E,02 , 

32,DE,AB,DD,7E,0913 

230 DATA 00,32,DF,AB,C3,6F,AA,FE,04,CO ,DD, 

66,07,DD,6E,06,07F5 

240 DATA DD,5E,04,DD,56,02,DD,4E,00,DF,D5 , 

AB,C9,3E,OA,CD,07DC 

250 DATA 5A,BB,3E,OD,CD,5A,BB,C9,3A,4E,BE, 

CB,77,C4,53,AA,0854 

260 DATA CB,67,C4,5A,AA,3A,4D,BE,CB,6F,C4 , 

61,AA,CB,57,C4,09 2E 

270 DATA 68,AA,C9,21,C5,AB,CD,7E,AB,C9,21, 

C9,AB,CD,7E,AB,09B6 

280 DATA C9,21,CD,AB,CD,7E,AB,C9,21,Dl,AB, 

CD,7E,AB,C9,3A,09B7 

290 DATA E2,AB,67,3A,DB,AB,5F,3A,DC,AB,57, 

3A,DE,AB,6F,22,087F 

300 DATA E5,AB,CD,B5,AA,CO,21,BA,AB,CD,7E, 

AB,06,04,21,DC,08FF 

310 DATA AB,7E,CD,87,AB,3E,2F,CD,5A,BB,23, 

10,F4,CD,BA,A9,08CE 

320 DATA 3A,E2,AB,FE,49,CC,53,AA,06,OC,3E, 

20,CD,5A,BB,10,0739 

330 DATA F9,CD,2D,AA,C9,2A,E5,AB,01,7E,FB, 

7C,CD,56,AB,7B,095F 

340 DATA CD,56,AB,7A,CD,56,AB,AF,CD,56,AB, 

7 D,CD,56,AB,3A,0918 

350 DATA DF,AB,CD,56,AB,7D,CD,56,AB,3E,34, 

CD,56,AB,3E,FF,0920 

360 DATA CD,E8,AA,FB,CD,20,AB,C9,F3,CD,56 , 

AB,7C,2A,E3,AB,OABO 

370 DATA FE,46,20,18,18,06,OC,ED,78,77,OD, 

23,ED,78,F2,FC,0705 

380 DATA AA,E6,20,20,F1,C9,0C,7E,ED,79,0D, 

23,ED,78,F2,0C,080D 

390 DATA AB,E6,20,20,Fl,C9,CD,2B,AB,D8,3A, 

4C,BE,E6,08,C9,0901 

400 DATA CD,16,AB,D8,CO,3A,4D,BE,E6,02,C9 , 
E5,D5,16,00,21,080D 

410 DATA 4C,BE,E5,ED,78,FE,CO,38,FA,OC,ED, 

78,OD,77,23,14,0870 

420 DATA 3E,05,3D,20,FD,ED,78,E6,10,20,E8, 

El,7E,E6,C0,2B,0830 

430 DATA 72,Dl,El,CO,37,C9,F5,F5,ED,78,87, 
30,FB,87,30,03,099F 

440 DATA Fl,Fl,C9,F1,0C,ED,79,OD,3E,05,3D, 

00,20,FC,Fl,C9,0871 

450 DATA 01,7E,FA,3E,01,ED,79,3E,05,3D,00, 

20,FC,C9,7E,CD,06CE 

460 DATA 5A,BB,23,B7,20,F8,C9,F5,1F,1F,1F, 

1F,CD,90,AB,Fl,0 8 3A 

470 DATA E6,OF,FE,OA,38,02,C6,07,C6,30,CD, 

5A,BB,C9,E5,CD,0857 

480 DATA 00,B9,El,CD,79,EE,CD,03,B9,C9,OA, 
0D,20,75,6E,66,07A0 

490 DATA 6F,72,6D,61,74,69,65,72,74,00,53, 
45,43,54,20,49,056F 

500 DATA 44,20,3A,20,00,2F,43,4D,00,2F,57, 
43,00,2F,44,45,02FE 

510 DATA 00,2F,4E,44,00,52,C6,07,63,C7,07, 
00,00,00,00,00,0311 

520 DATA 00,00,00,00,00,00,00,21,00,A2,11, 
30,A9,01,B5,02,0265 

530 DATA ED,BO,C9,00,00,00,00,00,00,00,00, 
00,00,00,00,00,0266 
Listing: ULTRA.DAT 


[3554] 

[3571] 

[1485] 

[3448] 

[2944] 

[3082] 

[3873] 

[3071] 

[2748] 

[1264] 

[3121] 

[1753] 

[2732] 

[2813] 

[2911] 

[3168] 

[2172] 

[2129] 

[4170] 

[2990] 

[1946] 

[1930] 

[1954] 

[2652] 

[2865] 

[4371] 

[3869] 

[2621] 

[2196] 

[2724] 

[2466] 

[2394] 

[2547] 

[1909] 

[3902] 

[1978] 

[2252] 

[2642] 

[2118] 

[3035] 

[2561] 

[3193] 

[2562] 

[2972] 
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Testing, testing ... 

Programme testen 
mit TRACE vl.3 


Sie haben ein Programm in BASIC geschrieben, aber es 
läuft nicht so richtig. Die Fehlersuche, unter Verwen¬ 
dung von TRON und TROFF, beginnt. Aber, oh 
Schreck, Ihr Bildschirm wird mit lauter Zeilennummern 
vollgeschrieben. Nichts ist mehr von Ihren momentanen 
Programmausgaben zu erkennen. Hier kann Ihnen jetzt 
geholfen werden. 


Die meisten Programmiersprachen besitzen einen Tracer , 
mit dem man den Ablauf eines Programms in Zeitlupe nach¬ 
vollziehen kann. Auch das BASIC des CPC hat einen Tracer. 
Der gibt jedoch nur die Zeilennummer aus, so daß man das 
Programm ständig mit <ESC> unterbrechen und anschlie¬ 
ßend listen muß. 

Der BASIC-Befehl TRON ist dem Anwender also keine gro¬ 
ße Hilfe, zumal man die aktuelle Zeilennummer auf dem 
Bildschirm meistens nicht wiederfindet. Sind in dem Pro¬ 
gramm nämlich FOR-TO-NEXT-Schleifen auf mehrere Zei¬ 
len verteilt, so hat man innerhalb kürzester Zeit den Bild¬ 
schirm voller Zahlen in eckigen Klammern. Den Besitzern 
eines CPC 464 kann das in Zukunft aber egal sein, denn für 
deren Maschine wurde TRACE entwickelt. Die Anpassung 


für 464 


1000 '-- 

i 

1010 TRACE 

/ 

1020 ';Versionsnummer : 01.03 
/ 

1030 ';Datum : 03-12-1990 

1080 - 



1090 ' 
1100 ' 
1110 ' 


1120 ' 

1130 ' 

1140 ' 
creen 
1150 ' 
rucker 
1160 ' 


[117] 

[117] 

[2358] 

[589] 

[2732] 


Aufruf 

TRACE, Zeilennummer (,Ausgabe) 

Ausgabe = 0 oder nicht angegeben: S [1708] 
Ausgabe <>0 : d [618] 

- [2358] 


1170 ' 

1180 MEMORY &A1FF 

1190 FOR adr=&A200 TO &A3AF:READ a$:POKE a 
dr,VAL("&"+a$):NEXT 

1200 PRINT"Tape/Disc einlegen :";:CALL &BB 

8A:CALL &BB06:CALL &BB8D 

1210 SAVE"TRACE.BIN",b,&A200,&lB0 

1220 CALL &A200:PRINT"TRACE installiert." 

1230 END 

1240 ' 

1250 DATA 01,09,A2,21,14,A2,C3,Dl 
1260 DATA BC,0E,A2,C3,18,A2,54,52 
1270 DATA 41,43,C5,00,46,4D,20,44 
1280 DATA FE,01,D8,20,07,DD,2B,DD 
1290 DATA 2B,AF,18,03,DD,7E,00,DD 
1300 DATA 66,03,DD,6E,02,22,AD,A3 
1310 DATA B7,28,02,3E,08,32,90,A3 
I Listing: TRACE.LDR _ 


[117] 

[450] 

[2266] 

[4724] 

[841] 

[2778] 

[HO] 

[117] 

[ 868 ] 

[1302] 

[1283] 

[922 ] 

[1764] 

[1292 ] 

[1655] 


aut die CPCs 664 und 6128 konnte leider nicht erstellt wer¬ 
den, da keine entsprechenden Unterlagen zur Verfügung 
standen. Nachdem Sie das Listing abgeschrieben und gestar¬ 
tet haben, wird eine Datei TRACE.BIN auf den verwendeten 
Datenträger ausgegeben. Für eine spätere Anwendung soll¬ 
ten Sie sich jetzt folgende Datei anlegen: 

10 MEMORY &A1FF:L0AD “TRACE.BIN“,&A200 
20 CALL &A200:PRINT “TRACE installiert.“ 

und sie dann mit 
SAVE "TRACE.BAS 
abspeichern. 

Nun steht Ihnen folgender RSX-Befehl zur Verfügung: 

ITRACE, Zeilennumner (,Ausgabegerät) 

Zeilennummer ist Startpunkt des Programms. Es gelten für 
diesen Bctehl dieselben Bedingungen wie für RUN, das heißt, 
alle Variablen werden gelöscht, offene Dateien geschlossen 
und so weiter (siehe Handbuch). Ausgabegerät gibt das Ziel 
für die Auflistung der Zeilen an. Ist kein Argument angege¬ 
ben, wird auf den Drucker gelistet. In diesem Fall bleibt die 
Bildschirmausgabe unbeeinflußt. Allerdings verlangsamt 
TRACE die Arbeitsgeschwindigkeit des Programms. 

Ist als Ausgabegerät 0 angegeben, wird auf den Bildschirm 
gelistet. Vor jeder Ausführung einer BASIC-Zeile wird diese 
im unteren Bildschirmbereich angezeigt. TRACE wartet 
dann auf einen Tastendruck (zu sehen am Cursor). Wird 
< ESC> gedrückt, ist das BASIC-Programm beendet. 

Für eine spätere Anwendung installieren Sie TRACE nur 
noch einfach mit: 


RUN “TRACE 


(Martin Preuß/jg) 


1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 


DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 

DATA 


3E,1E 
21, AC 
C5,F5 

36, AE 
A2, ED 
B7,20 
A3,3E 
B2,11 

BO, 21 
0C,00 
92,A3 
21 ,AC 
AC, CD 
3A, 90 
8A,BB 
IE, BB 
64,C0 
21,94 
00, ED 
94,Bl 

37, BD 
01, AC 
24, B9 

11.85 
C9,F5 

22.85 
00,28 
21,CF 
23,36 

CF, Bl 
CD, 00 
32,21 
AC ,21 
90,A3 
02, CD 
48, CD 
CD, 32 
01 ,CD 
CD, E4 
3E,C9 
32, E4 
BC, 32 
BC, 21 
00,00 
00,00 
00,00 
01, FF 


,32,AC,A3 
,A3,C3,BD 
,B7,2A,92 
,ED,52,7D 
,53,92,A3 
,24,3A,C8 
,02,32,C8 
,94,A3,01 
,A0,A3,11 
,ED,B0,CD 
,4E,59,23 
,F5,3A,90 
,0D,El,Fl 
,A3,B7,C2 
,CD,06,BB 
,F5,CD,8D 
,3A,91,A3 
,A3,11,85 
,B0,Fl,CI 
,C3,24,B9 
,CD,37,BD 
,3E,3A,32 
,22,22,B9 
,B2,01,0C 
,CD,14,BC 
,B2,Fl,32 
,14,FE,01 
,Bl,36,C0 
,0C,23,36 
,36,F0,2 3 
,B9,3E,C3 
,B9,21,D5 
,46,A2,2 2 
,B7,CC,47 
,0E,BC,3E 
,32,BC,AF 
,BC,AF,CD 
,90,BB,CD 
,BB,3E,01 
,32,96,BB 
,BB,32,DE 
,37,BD,3E 
,F9,A2,22 
,00,00,00 
,00,00,00 
,01,15,00 
,FF,00,1E 


,CD,28,A3 
,E9,E5,D5 
,A3,ED,5B 
,B4,CA,CB 
,3A,90,A3 
,Bl,32,91 
,Bl,21,85 
,0C,00,ED 
,85,B2,01 
,6C,BB,2A 
, 46,50,3A 
,A3,32,21 
,32,21,ÄC 
,CB,A2,CD 
,3E,42,CD 
,BB,Fl,C2 
,32,C8,Bl 
,B2,01,0C 
, Dl, El, 3A 
,3E,CF,32 
,3E,C9,32 
,21,B9,21 
,21,94,A3 
,00,ED,B0 
,21,00,00 
,C8,Bl,FE 
,28,01,C9 
,23,36,30 
,03,C9,21 
,36,OF,C9 
,32,01,AC 
,A2,22,02 
,22,B9,3A 
,A3,C9,3E 
,01,06,18 
,06,00,48 
,96,BB,3E 
,54,BB,AF 
,CD,DE,BB 
,32,90,BB 
,BB,32,32 
,C3,32,OE 
,OF,BC,C9 
, 00 , 00,00 
, 00 , 00,00 
,18,4F,00 
,00,00,00 


Listing: TRACE.LDR 


[2130] 

[1659] 

[1235] 

[1855] 

[1441] 

[1190] 

[858] 

[956] 

[1367] 

[1334] 

[1227] 

[1297] 

[1811] 

[1733] 

[505] 

[ 1121 ] 

[1467] 

[1935] 

[1440] 

[879] 

[1334] 

[1404] 

[1560] 

[970] 

[1617] 

[1474] 

[1122 ] 

[1502] 

[1687] 

[1561] 

[1418] 

[1082] 

[1226] 

[702] 

[896] 

[1763] 

[1364] 

[1254] 

[2243] 

[1458] 

[705] 

[1144] 

[ 1222 ] 
[1005] 
[1005] 
[1226] 
[1699] 
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..k 100 DM 

"sg.; für lkByte 


Programme - klein, 
aber oho 


Kleine Programme können große Wirkungen haben. 
Wieder möchten wir Ihnen solche gelungenen “Kleinig¬ 
keiten“ vorstellen. 


“Kurz und bündig“ ist ein Begriff, der auch auf die Program¬ 
me dieser Rubrik paßt. Lang und schwierig ist aber das Aus¬ 
werten der diesbezüglichen Einsendungen, weil es aufgrund 
der Qualität der “Kleinen“ immer wieder schwerfällt, eine 
Auswahl zu treffen. 


JONNY HEART 


JONNY HEART ist ein Spiel, bei dem es um rote Herzen 
und Hindernisse geht. Man muß mit dem Joystick ein Männ¬ 
chen über das Spielfeld steuern und dabei die roten Herzen 
aufsammeln und den Hindernissen ausweichen. Das Männ¬ 
chen bewegt sich von Level zu Level schneller fort, und auch 
die Hindernisse und Herzen nehmen von Level zu Level zu. 
Wenn man den fünften Level überstanden hat. hat man ge¬ 
wonnen, und das Spiel ist zu Ende. 

Man hat bei Spielbeginn fünf Leben. Angezeigt werden die 
Anzahl der Leben und der Punktestand in der linken unteren 
Bildschirmecke. Der Punktestand erhöht sich bei jedem auf¬ 
genommenen Herzen um I. Wenn man gegen ein Hindernis 
läuft, ertönt ein Geräusch, ein Leben wird abgezogen, und 
das Männchen bleibt stehen. Die Anfangsanzahl der Leben 
kann in der Zeile 10 durch die Veränderung der Variablen 
"i“ erhöht werden. Die Geschwindigkeit des Männchens 
kann durch eine Abänderung der “Warteschleife“ in Zeile 70 
verändert werden. Die Variable "m» gibt dabei die Nummer 
des Levels an. 


(Oliver Zöller/tk) 



Hihi I: !’ACM INI das Spiel PACMAN als I-kBxw-Venion 


PACMIN1 

Eines Tages, als sich PACMAN nach getaner “Freß-Arbeit“ 
in sein Bettchen legte und einschlief, hatte er einen furchtba¬ 
ren Alptraum: Er war in einem kleinen Labyrinth und fraß 
ganz normal Pillen, als plötzlich eine Pik-Karte erschien, 
Geist spielte und ihn fangen wollte! Und seit jenem Tag muß 
er auch im Traum schuften! 

Ganz im Ernst: PACMINI.BAS ist die erste PACMAN-Ver- 
sion für den CPC, die lediglich I kByte Programmgröße hat. 
Nach dem Programmstart mit RUN“PACMINI wird das 
Bild aufgebaut, und los geht’s mit dem Pillen-Fressen — da¬ 
bei dürfen Sie sich aber nicht vom Geist (der Pik-Karte) erwi¬ 
schen lassen. Wenn Sic alle Pillen gefressen haben und der 
Geist Sie nicht erwischt hat, geht das Spiel von vorne los — 
nur dann wieder ein bisserl schneller ... 

Das Programm läuft auf allen CPC-Modellen. 

(Stefan Schmidt/tk) 

GRAPHIK DEMO 

Suchen Sie noch nach einem kleinen, aber guten Vorspann 
für Ihr selbstgeschriebenes Programm? Dann sollten Sie sich 
GRAPHIK DEMO anschauen. Man kann es in das eigene 
Programm einbinden oder aber auch als Pausenfüller be¬ 
nutzen. 

Das Programm kann beliebig verändert werden, beispiels¬ 
weise können durch Verändern des Speed Inks in Zeile 10 
gute Effekte erzielt werden, etwa: Speed ink 30 , 1 . Lauffähig 
ist GRAPHIK DEMO jedoch nur auf dem 664 und 6128. 

(Robert Praxmarer/tk) 

MEGATEXT 


Daß kleine Programme einen großen Nutzen haben können, 
beweist der Editor MEGATEXT schon mit seinem Namen. 
Sie starten das Programm mit RUN“MEGATEXT und er¬ 
halten auf dem Bildschirm die folgende Zeile: 

1-L 2-S 

Um einen Text zu laden, drücken Sie die Taste < 1 >, ge¬ 
folgt von < RETURN >. Dann geben Sie den Namen der 
Textdatei, die im ASCII-Format vorhanden sein muß, ein 
und bestätigen nochmals mit < RETURN > . 

Einen geänderten oder neu geschriebenen Text speichern Sie 
nach der gleichen Methode, lediglich anstelle der Taste 
< 1> müssen Sie jetzt die Taste <2> verwenden. Durch 
ein nochmaliges Drücken der Taste < RETURN > kommen 
Sie wieder zum Text zurück. 

Mit den Cursor-Tasten können Sie an jede Stelle des ge¬ 
schriebenen Textes gelangen. Wenn Sie einen anderen Text 
laden oder einen neuen schreiben wollen, betätigen Sie 
<COPY > und können dann fortfahren. MEGATEXT läuft 
auf allen CPCs. 

(Eric Reinsch/tk) 
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RUNGE und GAUSS - Mathematik in 1 kByte 

Seitdem die EDV erschwinglich wurde und in die Haushalte 
einzuziehen begann, fanden sich schlagartig auch immer 















Tips & Tricks—i 


mehr Anwendungen für na¬ 
turwissenschaftliche Berei¬ 
che und für die Mathematik. 
Den Mathematikern unter 
unseren Lesern wollen wir 
zwei 1-kByte-Programme 
zur Berechnung von Diffe¬ 
rentialgleichungen erster 
Ordnung und Berechnung 
bestimmter Integralen vor¬ 
stellen: 

R UNGE-KUTTA - Verfahren 
Das Programm RUN¬ 
GE. BAS dient zur schritt¬ 
weisen Berechnung von Dif¬ 
ferentialgleichungen erster 
Ordnung und erklärt sich im 
Prinzip von selbst. Durch 
die Eingabe des Anfangs¬ 
beziehungsweise Endwertes 
wird ein Intervall festgelegt, 
für welches dann schrittwei¬ 
se die Lösungen der Diffe¬ 
rentialgleichung und derjc- 



ßiltl 2: GRAPHIC DEMO - ein Vorspann Jur Ihr Programm 


weilige 

(f(x 0 )=y 0 ) 

werden. 


Anfangswert 

berechnet 


Rihl J; Verhältnisse und Tabellen - einjach auf dem CRC 


GAUSS 

GAUSS. BAS ermöglicht 
die Berechnung von be¬ 
stimmten Integralen. Es 
können die zu integrierende 
Funktion, die Integralgren¬ 
zen und die Anzahl der Teil¬ 
intervalle (je mehr, desto 
größere Genauigkeit) einge¬ 
geben werden. Im Gegen¬ 
satz zu anderen Inte¬ 
grationsalgorithmen kommt man aber hier mit wenigen Teil- 
intervallen aus, wodurch die Rechenzeit abnimmt. Eine unte¬ 
re Grenze für die Anzahl der Teilintervalle sollte aber n = 10 
sein, was nicht heißen soll, daß weniger Teilintervalle nicht 
auch brauchbare Ergebnisse liefern. 

Beide Programme sind auf allen CPC-Modellen lauffähig. 

(Thomas Müller/tk) 

Verhältnisse 

Bei VERHAELT.BAS geht es nicht um die Verhältnisse, 
von denen die Regenbogenpresse so gern berichtet, sondern 
um Verhältnisrechnungen nebst den dazugehörenden Tabel¬ 
len. Ob im Beruf, in der Schule oder privat, Verhältnistabel¬ 
len werden gerne und oft verlangt oder benutzt. Und wer es 
leid ist. immer mühsam übereinen passenden Maßstab nach¬ 
zudenken und quälend ordentlich ein Koordinatensystem an¬ 
zufertigen, der benutzt einfach dieses Programm. 

Das Programm errechnet ein passendes Koordinatensystem, 
zeichnet die Zahlen grafisch hinein und versieht die entspre¬ 
chenden Stellen mit geschriebenen Zahlen. Kurz und gut: Es 
erledigt all die unangenehmen Aufgaben. 

Zu Beginn gibt man ein, wie viele Zahlen man grafisch dar¬ 
stellen möchte und danach gibt man die zu verwendenden 



Daten ein. Auf die Frage 
nach der Zahl X ist die Zahl 
einzugeben, die man auf der 
X-Achse haben möchte. 
Ebenso ist bei der Zahl Tzu 
verfahren. Die Zahlen kön¬ 
nen so eingegeben werden, 
wie sie vorliegen, solange 
sie nicht die “natürlichen“ 
Grenzen des CPC über¬ 
schreiten. 

Sobald alle Zahlen eingege¬ 
ben worden sind, wird die 
Verhältnistabelle erstellt. Je 
nachdem wie man die Ta¬ 
belle verwenden möchte, 
kann das Bild mit dem Befehl 
save“tabelle.bin“,b,&C000, 
&3FFF 

gespeichert und mit einem 
Hardcopy-Programm (zum 
Beispiel COPYSHOP) ge¬ 
druckt werden. Zum Pro¬ 
gramm selbst sei erwähnt, 
daß es, während die einzel¬ 
nen Zahlen eingegeben wer¬ 
den, gleich die kleinste und 
die größte X- beziehungs¬ 
weise Y-Zahl heraussucht. 
Mit diesen Werten wird spä¬ 
ter die optimale Größe des 
Koordinatensystems ausgerechnet. Um die Werte auch pro¬ 
portional auf den Bildschirm umzulegen, werden die einzel¬ 
nen Zahlen zunächst in Prozent umgerechnet und sind somit 
übertragbar. 

Die Variablenliste sieht wie folgt aus: 


anzg r Anzahl der Zahlenpaare, die verwendet werden sollen, 
xlow, ylow = wird jeweils mit dem kleinsten eingegebenen X- bzw. 

Y-Wert versehen. Diese Variablen werden zu Beginn 
auf 999999 gesetzt, um später Probleme bei der Suche 
nach der kleinsten Zahl zu vermeiden, da jeweils die 
kleinere Zahl übernommen wird. 

xhigh, 

yhigii ^ = enthalten jeweils die größten Zahlen. 

x() > y() = in diesen Arrays werden die Zahlen gespeichert, 

px, py = enthalten die Position innerhalb der Zahlen in Pro¬ 

zent. 

x, y = enthalten die Position umgerechnet auf die Bild¬ 

schirmposition. 

altx, alty = enthalten die alte Bildschirmposition. Diese wird 
benötigt, um durchgehende Linien zu realisieren. 


Sofern Sie also keine Mühe mehr mit Verhältnisrechnungen ha¬ 
ben wollen, können Sie das Programm auf allen CPCs ein- 
setzen. 

(Christian Leubner/tk) 
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[—Tips & Tricks 


Tastenprogrammierung 

Wer kann kein Lied davon singen? Listings aus der PCI abzu¬ 
tippen, kann knochenharte Arbeit sein, die aber schließlich zu 
einem erfreulichen Resultat führt. 

Häufig muß man im Laufe einer Abtipp-Session einen oder 
mehrere Standardbegriffe des BASIC einhacken. Wenn man 
beispielsweise zum einhundertvierzigsten Male GOTO getippt 
hat, kann das die Ursache für Alpträume der grausigsten An 
werden. 

Doch Spaß beiseite: Das Eintippen eines immer wiederkehren¬ 
den Begriffes ist nicht nur nervig, sondern sch licht weg über¬ 
flüssig —wenn man das Programm TASTPROG.BAS hat. 
Mit diesem I-kByte-Programm kann man als eingefleischter 
Listingabtipper bis zu 24 Funktionstasten mit BASTC-Schlüs- 
sel Worten (oder anderen Begriffen) belegen. Das Programm 
bietet die Möglichkeit, die programmierte Tastenbelegung ab¬ 
zuspeichern und sie wieder cinzuladen. 

Somit kann sich jeder Anwender eine ganze Bibliothek ver¬ 
schiedener Tastaturbelegungen aufbauen. Nach dem Starten des 
Programms wird zunächst gefragt, ob eine schon vorhandene 
Belegung eingeladen werden soll. Mit <ENTER> wird die 


Load-Routine übersprungen und die Eingabe der jeweiligen Be¬ 
legung erwartet. Nach der 24. Eingabe wird die aktuelle Ta¬ 
staturbelegung angezeigt, und man wird zur Abspeicherung auf 
Band beziehungsweise Diskette aufgefordert. 

Die Erweiterungs-Strings werden auf die SHIFT- und CTRL- 
Ebene des Ziffernblocks gelegt. Der Ziffernblock kann wei¬ 
ter wie bisher verwendet werden. Nur der Dezimalpunkt wurde 
gegen das Komma ausgetauscht, um die Eingabe von Ziffern 
in DATA-Zeilen zu erleichtern. 

Zu beachten sind folgende Einschränkungen: 

Es dürfen in den Erweiterungs-Strings keine Kommas auftre- 
len, da dies unweigerlich zu einer Fehlermeldung führt. 

Die maximale Länge des Erweiterungs-Strings darf 32 Zeichen 
und die Gesammtsumme aller Zeichen die Zahl 100 nicht über¬ 
steigen. Hierzu können Sie auch im CPC-Handbuch nachlesen. 

Das Programm läuft auf allen CPCs und wird Ihnen beim Ab¬ 
tippen von Listings und vielleicht auch anderen Arbeiten am 
Rechner mit Sicherheit eine Hilfe sein. 

(Mirko Voigtländer/tk) 


10 MODE 1:CALL &BC02:DEFINT a-Z :RANDOMIZE [4712] 
TIME:1=5:DEF FNk=TEST(x*16-8,(26-y)*16-8) 

20 m=m+l:IF m>5 THEN LOCATE 5,1:PRINT"Gewo [6995] 
nnen!" :END ELSE h=0:CLG 1:WINDOW#1,2,39,2, 

23:PAPER 0:CLS#1 

30 PEN 1:b=231:g=20+3*m:GOSUB 40:b=228:PEN [9534] 

3:g=10+2*m:GOSUB 40:b=224:PEN 2:g=l:GOSUB 
40:g=l0+2*m:LOCATE 1,25:PRINT"L:";1;" P:" 

;p:CLEAR INPUT:CALL &BB06:GOTO 70 

40 FOR c=l TO g [836] 

50 X=RND*38+2:y=RND*22+2:IF FNk=0 THEN LOC [4527] 

ATE x,y:PRINT CHRS(b)ELSE 50 

60 NEXT:RETURN [940] 

70 FOR c=l TO 250-50*m:NEXT:IF JOY(0)=1 TH [12784] 

EN DEF FNx=x:DEF FNy=y-l ELSE IF JOY(0)=2 
THEN DEF FNx=x:DEF FNy=y+l ELSE IF JOY(0)= 

4 THEN DEF FNx=x-l:DEF FNy=y ELSE IF JOY(0 
)=8 THEN DEF FNx=x+l:DEF FNy=y 

80 e=x:f=y:x=FNx:y=FNy:IF FNk=l THEN 1=1-1 [10050] 
:LOCATE 3,25:PRINT 1:SOUND 2,1500,20,,,,25 
:IF 1<1 THEN LOCATE 5,1:PRINT"... und aus!" 

:END ELSE x=e:y=f:CLEAR INPUT:CALL &BB06 

90 IF FNk=3 THEN h=h+l:p=p+l:LOCATE 9,25:P [2666] 

RINT p:IF h=g THEN GOTO 20 

100 LOCATE e, f:PRINT" ":LOCATE x,y:PRINT C [2469] 
HRS(224):GOTO 70 

HEART.BAS 


1 DIM k(11,11):m$=CHR$(233):d$=CHR$(144):g [8447] 
$=CHR$(229):p$=CHR$(224):MODE 1:b=l:a=0.3: 

DATA ,011111111,010101101,010101101,010131 
101 , 011100101 , 000111111 , 011100001,01111111 
1 , 

2 FOR w=l TO 500:NEXT:a=a+0.03:IF a>0.8 TH [3147] 
EN a=0.8 

3 d=0:RESTORE:FOR y=l TO 10:READ q$:FOR x= [9598] 
1 TO 10:k(x,y)=VAL(MID$(q$,x,1)):LOCATE x, 

y:IF k(x,y)=l THEN PRINT d$ELSE IF k(x,y)= 

0 THEN PRINT ra$ 

4 NEXT:NEXT:x=5:y=5:g=5:h=7:o=5:n=5:e=5:f= [2880] 
7 

5 r=0:q=0:LOCATE o,n:PRINT" ":LOCATE X,y:P [4288] 
RINT p$:IF d=46 THEN 2 

6 e=g:f=h:o=x:n=y:IF h>y THEN v=-a ELSE IF [4445] 
h<y THEN v=a 

7 IF g>x THEN z=-a ELSE IF g<x THEN z=a [1353] 

8 IF k(g+z,h)THEN g=g+z [1775] 

9 IF k(g,h+v)THEN h=h+v [1375] 

10 LOCATE e,f:IF k(e,f)=l THEN PRINT d$ELS [2814] 
E PRINT" " 

11 LOCATE g,h:PRINT g$:IF CINT(g)=x AND CI [5047] 
NT(h)=y THEN LOCATE 5,14:PRINT"ENDE":END 

12 J=JOY(0):IF j =4 THEN q=-l ELSE IF j=8 T [5205] 
HEN q=l ELSE IF j=l THEN r=-l ELSE IF j=2 

THEN r=l 


13 IF k(x+q,y+r)=3 THEN x=x+q:y=y+r:GOTO 5 

14 IF k(x+q,y+r)=l THEN p=p+5:LOCATE 1,12: 
PRINT p:x=x+q:y=y+r:d=d+l:k(x,y)=3 

15 GOTO 5 

PACMINI.BAS 

[3381] 

[4662] 

[280] 

l 'Graphic Demo by Robert Praxmarer 


[1824 ] 

10 MODE 1:BORDER 0:INK 0,0:PEN 1:INK 1,8 

: S 

[3095] 

PEED INK 30,30 



20 LOCATE 14,22:PRINT"G R A P H I C " 


[1514] 

30 LOCATE 17,24:PRINT"D E M 0" 


[1888] 

40 GRAPHICS PEN l:MOVE 0,0:DRAW 639,0:DRAW 

[4475] 

639,0:DRAW 639,399:DRAW 0,399:DRAW 0,0 



50 MASK 15:GRAPHICS PAPER 2:GRAPHICS PEN 

3 

[5361] 

:INK 2,0,26:INK 3,26,0:PEN 1 



60 FOR a=l TO 360 STEP 5:DEG:ORIGIN 320, 

80 

[3215] 

70 DRAW SIN(a)*90,(a)-a/6:NEXT 


[890] 

90 FOR b=l TO 360 STEP 5:DEG:ORIGIN 320, 

80 

[3580] 

100 DRAW SIN(-b)*90,(b)-b/6 


[813] 

110 NEXT 


[350] 

120 FOR c=0 TO 9000:NEXT 


[1386] 

130 FOR y=2 TO 20:X=5:LOCATE x,y:PR!NT SPA 

[4316] 

CE$(30):NEXT 



140 FOR d=l TO 600:NEXT 


[1109] 

150 FOR e=l TO 25:PRINT CHR$(128):NEXT 


[1924] 

160 CLS:LOCATE 8,12:PRINT"Beginn ihres Hau 

[4626] 

ptprogramms":CALL &BB18:CALL &BC02:CLS 



GRADEMO.BAS 




10 q=l:DIM z$(500) [609] 

20 MODE 2:INPUT"1-L 2-S :",e:INPUT"Name ", [9782] 
n$: IF e=l THEN OPENIN n$:q=0:WHILE EOF=0:q 
=q+l:INPUT#9,z$(q):WEND:CLOSEIN ELSE IF e= 

2 THEN OPENOUT n$:FOR w=l TO q:PRINT#9,Z$( 
w) :NEXT:CLOSEOUT 

30 z=y:FOR p=l TO 25:PRINT z$(p):NEXT:GOTO [3544] 
50 

40 a$=INKEY$:IF a$="" THEN 40 ELSE LOCATE [17064] 
x,y:PRINT x$:a=ASC(a$):IF a=224 THEN 20 EL 
SE IF a=242 OR a=127 THEN x=x-l ELSE IF a= 

240 OR a=241 THEN y=y+a*2-481:z=z+a*2-481: 

IF y<l AND Z>0 THEN PRINT CHR$(11);CHR$(11 
) ELSE IF y>25 AND z<500 THEN PRINT CHR$(1 
0); 

50 y=MIN(MAX(y,1),25):z=MIN(MAX(z,1),500 >: [12508] 
v$=LEFT$(z$(z),MAX(x-1,0)):IF a=243 THEN x 
=X+1 ELSE IF a=127 OR a=16 THEN z$(z)=v$+M 
IDS(z$(z),x+l) ELSE IF a>31 AND a<127 THEN 
z$(z)=LEFT$ fv$+a$+MID$(z$(z),x),78):x=x+l 
:q=MAX(z,q) 

60 g$=z$(z)+" ":x=MIN(MAX(l,x),LEN(g$)):x$ [5141] 
=MID$ (g$ , x ,1):LOCATE l,y:PRINT g$ :LOCATE x 
,y:PRINT CHR$(24) ;x$ ;CHR$(24):GOTO 40 


PACMINI.BAS 


MEGATEXT BAS 


80 PC 4 / 5’91 





Tips & Tricks—i 


5 MODE 2:CLS:PRINT"Runge-Kutta Verfahren z 
ur Loesung einer DGL. 1. Ordnung (Anfangsw 
ertaufgabe) ! " .-PRINT: PRINT 
10 INPUT-'Wollen Sie eine Funktion definier 
en (3/n) ";a$ 

40" + CHR$ (*13 )* ' 1 ' 140 140 , CHR$ (13 ) + "g 0 to 

30 IF a$="j" THEN PRINT:PRINT"Nach der Ein 
gäbe die kleine ENTER-Taste druecken !":PR 
INT:PRINT:EDIT 40 ELSE GOTO 40 
40 DEF FNy(x,y)=-y+x+2 
50 CLS:INPUT"Intervallgrenzen xa.xe: 
";xa,xe:PRINT 

60 INPUT"Anzahl der Teilintervalle n: ";n 
:PRINT 

70 PRINT"Anfangswert y("xa"): ». 

: INPUT"";ya:PRINT 

80 h=(xe-xa)/n 

90 PRINT"y("xa")=»;ya 

100 FOR i=l TO n 

110 IF i>=2 THEN xa=xa+h 

120 kl=FNy(xa,ya) 

130 k2=FNy(xa+h/2,ya+h/2*kl) 

140 k3=FNy(xa+h/2,ya+h/2*k2) 

150 k4=FNy(xa+h,ya+h*k3) 

160 ya=ya+h*(kl+2*k2+2*k3+k4)/6 

170 PRINT"y("xa+h")=";ya 
180 NEXT i:CALL SBB06:RUN 


[10238; 


[3013] 

[3395] 

[7826] 


[662 ] 
[3253] 

[3666] 


[1190] 

[1565] 

[456] 

[2016] 

[1133] 

[1641] 

[1666] 

[1820] 

[1274] 

[880] 

[1896] 


100 MODE 2:CALL 5BC02 

110 INPUT"Wieviele Zahlen : ",anz% 

120 DIM x(anz%),y(anz%) 

130 xlow=999999:ylow=999999 
140 FOR i=l TO anz% 

150 INPUT"Zahl-X: ",x(i) 

160 IF x(i)>xhigh THEN xhigh=x(i) 

170 IF x(i)<xlow THEN xlow=x(i) 

180 INPUT"Zahl-Y: ",y(i) 

190 IF y(i)>yhigh THEN yhigh=y(i) 

200 IF y(i)<ylow THEN ylow=y(i) 

210 NEXT 

220 CLS:MOVE 620,20:DRAW 40,20:DRAW 40,390 
:TAG 

230 altx=40:alty=20 
240 FOR i=l TO anz% 

250 px=(x(i)-xlow)*l00/(xhigh-xlow) 

260 X= (px/100)*(620-40)+40 

270 py=(y(i)-ylow)*100/(yhigh-ylow) 

280 y=(py/l00)*(390-20)+20 
290 PLOT altx,alty:DRAW x,y 
300 altx=x:alty=y 

310 PLOT X,28:DRAW X,20:PLOT 48,y:DRAW 40, 

320 MOVE x-16,16 rPRINT x(i);:MOVE -8,y+4:P 
RINT y(i); 

330 NEXT 
340 CALL SBB06 


[1642] 

[2678] 

[591] 

[1395] 

[1055] 

[1356] 

[1808] 

[1772] 

[1633] 

[1391] 

[976] 

[350] 

[1987] 

[777] 

[1055] 

[1613] 

[1267] 

[2276] 

[1123] 

[2460] 

[244 ] 

[1872] 

[2545] 


RUNGE.BAS 


VERHAELT BAS 


10 MODE 2:CLS:PRINT"Integration einer Funk 
tion f=f(x): (I=Integral von f(x)) !" 

20 PRINT:PRINT:PRINT:INPUT"Wollen Sie eine 
Funktion definieren (j/n) ";a$ 

30 KEY DEF 6,1,140:KEY 140,CHR$(13)+"goto 
50"+CHR$(13) 

40 PRINT:IF a$="j" THEN PRINT"nach der Ein 
gäbe die kleine ENTER-Taste druecken !":ED 
IT 150 ELSE GOTO 50 

m? c £ s: PRINT:INPUT"Integrationsgrenzen a,b 

60 PRINT:INPUT"Schrittanzahl n";n 

70 h=(b-a)/2/n:g=0:d=SQR(0.6)*h:z=a-h 

80 FOR i=l TO n:z=z+2*h 

90 FOR j=-l TO 1:x=z+j*d:GOSUB 150 

100 g=g+(8-j*j*3)*f 

110 NEXT j,l 

120 g=g*h/9 

130 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT CH 
R$ (24):PRINT"I = ";g:PRINT CHR$(24) 

140 LOCATE 1,25:INPUT"Nochmal (j/n) ";a$: 
IF a$="j" THEN GOTO 10 ELSE END 
150 f=x*x*x*x*5 
160 RETURN 


GAUSS.BAS 


[8099] 

[6200] 

[2875] 


[2940] 

[2508] 

[3062] 

[636] 

[1501] 

[649] 

[396] 

[768] 

[4817] 

[4171] 


10 MODE 2:BORDER 0:INK 0,0:INK 1,26:DIM ta [3995] 
st$(36):anz=l 1 1 

20 INPUT"Laden (j/ )?",a$:IF UPPERS(a$)="J [98471 

" THEN INPUT"-.— " ,a$ : IF a$o""TH 

EN OPENIN a$:WHILE NOT EOF:LINE INPUT#9,ta 
st$(anz):anz=anz+l:WEND:CLOSEIN:GOTO 100 E 
LSE 20 

30 PRINT "Erweiterungen eingeben (max 24)! [70321 
":WHILE anz<=24:PRINT anz;:INPUT"",tast$ (a 
nz):anz=anz+l:WEND 

100 X=1:z=128:WHILE x<anz:KEY z,tast$(x):x [2664] 
=x+l:z=z+1:WEND 

105 CLS:LOCATE 1,3:PRINT"Nr":LOCATE 5,3:PR [56171 
INT"W":LOCATE 10,3:PRINT"N":LOCATE 16,3:PR 
INT"Shift":LOCATE 48,3:PRINT"CTRL" 

110 FOR x=0 TO 11:READ nr,erst:KEY DEF nr, [11949] 

1,erst,128+x,l40+x:LOCATE l,5+x:PRINT nr:L 

OCATE 5,5+x:PRINT"!":LOCATE 10,5+x:PRINT C 

HR$(erst):LOCATE 15,5+x:PRINT tast$(l+x):L 

OCATE 47,5+x:PRINT tast$(13+x):NEXT 

120 PRINT "Tastatur programmiert ! ";:INPU [11705] 

T"Speichern (j/ )?",a$:IF UPPERS(a$)="J" T 

HEN INPUT"-.-",a$:IF a$<>"" THEN 

OPENOUT aS:FOR x=l TO anz-1:PRINT#9,tastS 
(x):NEXT:CLOSEOUT ELSE 120 

130 DATA 10,537,11,538,3,539,20,534,12,535 [ 3732 ] 
,4,536,13,531,14,5 32,5,5 33,15,&30,7,&2c,6, 

50D 

TASTPROG.BAS 


Eine Bitte an unsere Abonnenten 

Vermerken Sie bei Schriftverkehr und Zahlungen neben der 
vollständigen Anschrift stets Ihre Abo-Nummer. 

Sie vermeiden damit unnötige Verzögerungen bei der Bearbeitung 

Ihres Abonnements. 

Vielen Dank 

Ihre DMV-Versandabteilung 
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Wir sind Ihr starker 


CPC, Joyce & PC Partner 


Business-Programme CPC: 1 


Star-Wrlter I (CPcr> -.98,- 

Textsystem mit einer Vielzahl von_Möglichkei¬ 
ten: AdreBverwaltung. Grafik. DFÜ. Zeichen¬ 
editor ... 

Datei-Star (CPC 3") .98,- 

Universelles Datelverwaltungsprogramm 


Supercalc nur cpc 6128 / pcw 59,80 

Tabellenkalkulationsprogramm der Superlative. 

Neu Deutsches Handbuch 19,80 


I Programmiersprachen CPC 


HISoft Pascal (3•/ Kas.) 59,80 /39.80 
Assembler (SVKas.)— 59,80 /39.80 

(inkl. deutschem Handbuch) 


WspieleTEntspannung CPC: 


Sorcery Plus (y).-.30,- 

Spannendes GeschicWichkeitsspiel mit 
super Grafik. 

Cyrus II Chess (T) Superschach ...49,— 
Denksport aul Ihrem CPC 3D Darstellung. 

Flugsimulator 737 (y/Kas)38,—/28,- 


Adventures CPC \l = Text; g - Grafik) I 


Diamant von Rabenfels (g) 

Drachenland (t) 

Reise durch die Zeit (t) 

Sherlock Holmes (g. nur 3"Diske«e) 

Auftrag in der Bronx (g) 

Insel der Smaragde (t) 

Pharaonengrab (t) 

|o 3"-Diskette / Kassette 38,— / 28,— 


Mmmmemm 


Weihnachten steht vor der Tür!! 


CPC 6128: 

Der Ideale Computer • 3‘ laufwerk 

fOr den Einsteiger • CPM Plus und Basic 


komplett mit GrOnmonitor GT65 798,“ 
kompt. mit Color-Monitor CTMB44 1098,— 


Grafik auf CPC: 


EASIART ♦ Trackerball.198,- 

Zeichnen und Konstruieren mit dem Marconl 
Trackerball und dem Graflkprogramm EASI-ART. 
Unschlagbar ln Komb nation mit StopPress II 

EASIART* Tracksrball +StopPress ..348,- 

EASIART Softw. u. Handb.78,- 

Maus Paket Inkl. EASIART... 149,- 


Arnor: 

AmorC CPC 6128 225,- 

Prowort.198,- 

Protext 3".98,- 

Protext Eprom.124,- 

MAXAM y.94,- 

MAXAM Eprom.124,- 

MAXAM II.239.- 

Prospell engl.50,- 

Prospell dtsch...79,- 

STAR DIVISION: 

Star-Writer 1.98,- 

Datei-Star ..98,- 

Statistic-Star.98,- 

FibuStar Plus CPC ..298,- 

CPC-Knüller: 

ROMBOX CPC.118,- 


\ CPC + Joyce 


Van der Zalm: 

ADRESCOMP.58,- 

DATENREM.68,- 

FAKTUREM .78,- 

FIBUPLAN.148,- 

LAGDAT.68,- 

TEXTKING.78,- 

COMFORM.48,- 

ETATGRAF.58,- 

FIBUCOMP.98,- 

KALKUREM .78,- 

PROFIREM.138,- 

Graflk Knüller: 

Maus Packet.. 149.- 

inkl. Easlart 
AMX Maus 

mit Grafiksoftware.... 248,- 
Stop Press 

DTP Programm-178,- 

StopPress * 

AMX Maus-298.- 


MICA CPC.-.98.- 

Termtnalstar 3'..29,80 

Mini Offioe II y ..98,- 

Dart-Scanner (+).249,- 

Vldeodigitizer (+).348,- 

Turbo Pascal 3.0.225,- 

Turbo Toolbox....108,- 

Tascopy KasJ T 39/59,- 
Tasword Kas. / 3" 69 / 89,- 
Tasprint Kas. / 3T 39 / 59,- 

dktronlcs 

für 464/664 

Speech Synth. (ROM) 148,- 
Speech Synth. (Ko» ) . 98,- 

Lightpen (Kas.).68,- 

Uhrenmodul.119,- 

für 6128: 

Adapter für CPC 6128 (♦) 39,- 

Abdeckhauben: 

CPC Monitors.je 39,80 

DMP-Drucker.)e 29,80 

DDI/FDI/Vortex .ja 19,80 
CPC Konsolen ... Je 24,80 

Joyce Monitor-44,80 

Joyce Tastatur....— 24,80 
Joyce Drucker.24,80 

3"-Dlsketten (iost.) 

Maxell CF2.69,- 

CF2DD.128,- 

Noname...59,- 

Dlskettenboxen: 

3‘-3.5*/50.19,80 

y-3.5'/100.29,80 

5,257100.29,80 

POSSOBOXIöOy 59,- 

Schnittstellen: 

für CPC 6128...168,- 

fOr CPC 464...148,- 

RS 232 Joyce.198,- 

Monitore 

GT 65. 248.- 

CTM644 - 548.- 


CPC 


Kassettensoftware: 

Easl-Topcalc Kas.... 29.80 
Basic Lehrbuch Kass 29.80 
Taifun Basic Comp.... 48,- 
Mlni Office II Kas. „...49,- 


Futurewortd-20,- 

Stud Poker ...».20.- 

Manlc Miner__20.- 

P oker/17*4_20.- 

Thorr 1+2*3_Je 20,- 

Spfele Sonderpreise: 
Kassenen... 20.- 


Handbücher Deutsch 
Kr CPC; 

Mini Office II.29.80 

AMX-Maus CPC.29.80 

StopPress CPC....19,80 

dktronlcs Erw.. 19,80 

Protext_19.80 

MAXAM.. 19.80 

Supercalc--19,80 

6128 deutsch-68,- 

6128 englisch -48,- 

tür Jovwt; 

AMX-Maus Joyce.19,80 

Mini Office Prof.29.80 

CP/V PLUS 

Anwenderhandb.. 46.- 

deutsch & englisch 

MasterScan.—19.80 

StopPress Joyce.19,80 

Desktop Publsher... 19,80 

MICA--39,- 

LocoScrpt2 .. 59,- 

LocoFile...59,- 

Publlc Domain: 

1000 PO (y)-|e 20.- 

PD Kotulia 


Schaltpläne für: 


CPC 464/664/6128.Je! 

CTM 644/640.je 

GT 64/65.je 

DD1 / FD1 .' 

DMP 2xxx/3xxx.I 

Joyce 8256/8512.1 


'I Profi Programme CPC/PCW 



ü Fakturem . 



.1 

ü Lagdat. 


ü Etatgraf. 


1 Kalkurem. 

. 


. *2 


dBase II für CPC / Joyce (3") 

Jeder PC Besitzer kennt dieses relationale 
Datenbanksystem von ASHTON TATE. Diese 
Software eignet sich zur Lösung aller Anwen¬ 
dungsprobleme . wie Lager-, Adressverwall- 
ung, Fakturierung Betriebsabrechnung etc. 

(bis zu 65536 Datensätze) Achtungl CPC 
464 -664 Besitzer benötigen eine 64 KB 
Erweiterung 

Mit deutschem Handbuch 148,- 


I sensationelle Preissenkung || 


Profiprogramme aus der pc w«n 

Wir haben den Alleinvertrieb für dBaeell. 
Multiplan, Wordstar 3.0 und Microsoft 
Basic (CPC*Joyce) von Markt» Technik 
übernommen I Sollten Sie also Interesse 
an einer durch und durch professionellen 
Software für Ihren CPC oder Joyce 
haben, dann zögern Sie keine Sekunde 


li-IOu./üi l.\ 11 


mit MailMerge 

loxtvprarbeituhg 


MicroPro für CPC/Joyce 

Profitieren auch Sie vom Nutzen eines 
millionenfach bewahrten Textverarbertungs- 
programms und erledigen Sie alle Schreib- 
je arbeiten auf eine schnelle und komfortable 
Art und Weise. 

464- 664 Besitzer benötigen eine 64 KB Er. 
BL. Mit Serienbrteffunktlon qq _ 

-1 Mit deutschem Handbuch 


dBase II +■ Wordstar + Multiplen zum 

sensationellen Paketpreis von 298 - 

Handbuch (auch einzeln erhältlich) 

49,- 

Hündleranfragen erwünscht 
Wir suchen noch Kooperations¬ 
partner aua der ehemaligen DDR II 


MICR SOFT 
BASIC 


MuUlDlan Microsoft CPC / Joyce (3") 

Ja. Sie haben richtig gelesen, das bewahrte 
Tabellenkalkulahonsprogramm gibt es auch 
für Ihren Computer. Wenn Sie de zeit¬ 
raubende manuelle Verwaltung tabellarischer 
Aufstellungen von Hand satt haben, ist 
Multiplan genau das Richtige für Sie. 

CPC 464-664 Besitzer benötigen eine 
64 KB Erweiterung CPC 99,- 

Mit deutschem Hb. Joyce 148.- 


Baslc+Assembler cpc 6i28Uoycs 

Kompletles Entwicklungspakei m»; Basic- 
Compiler 5.4 Baslc lntefpreler 4 5tund 5.21. 
MaCTO-Assembler. Link Klnking Loader.Cref 
Cross Referenc FacJity und Lib Library 
Manager. 

Ein MuB für Jeden ernsthaften Baslo-und 
AssentHef Programmierer II CPC 99,— 
Mit deutschem Handbuch Joyce 148,- 



























































































































































Kopierprogramme. 


AMSTRAD 3"-Laufwerke: 


Zubehör 


2 .-La ufwerke aus eigener 
_ H Produktion ■ 11 


Speichererweiterungen CRC: 


BTX Modul für CPC 


Lernprogramme CPC / Joyce: 




Multiface 2 


Locomotive Software 


;| Neu !! Loco Script PC in deutsch 


LocoScript fr 


■Datenübertragung CPM - DOS: I 


Auf das sollten Sie achten. 


Joyce PCW 8256: 

• 3*-Laufwerk (180 KB) 

• Drucker + Text Software 

• CPM-Plus und Basic 

•256KB 998,- 


Joyce PCW 8512: 

• 3"-LW (180 + 720 KB) 

• Drucker + Textsoftware 

• CPM-Plus und Basic 

•512KB 1398, 


Mastercopy CPC (3*)..65,- 

Es gib« so gut wie kein Programm, daß von 
Mastercopy nicht geknackt wird. Übersichtliche 
Menösteuerung. (Disk auf Disk) 

Supercopy CPC/Joyce (3-) 65,- / 85,- 
Supercopy ist wie der Name schon sagt... 
(Disk auf Disk) 


Joyce PCW 9512 1 698, 


Joyce-Knüller : 


Fleetstreet Edlt. 
FISKUS 89/90. 


Desktop Publisher.98, 

... + AMX-Maus (+) ....298, 

MasterScan (♦).298, 

MasterPaint.78, 

MasterScan/-Paint.338, 

Mini Office Profess.138, 

...Dtsch. Zeichensatz ...29, 

Tasword 8000.148, 

Turbo Pascal 3.0.225, 

Turbo Toolbox.148, 

Pascal M+T.198, 

Prompt (Datei) .69, 

Prompt Druck.39, 

Turbo Adress.98, 

Turbo Faktura.148, 

Headline...198, 


WS-Tuner 


Joyce-Spiele. 

Anais of Rome. 

Batman. 

Bridge Player. 

Cyrus 3D Schach . 


Jinxter 


Lancelot 


Malchday II.69, 

Steve Davis Snooker ...69, 
The Gulld of Thleves.... 89, 


Tomahawk 


PCW-Adapter (+) 39,. 


MICA CAD 


Comac Litbox 4.0. 

Comac Kasse Plus ... 
Comac-Banktransfer 
Vereinsverwaltung... 

Schreiblehrgang. 

PSE2. 


3,5" LW (CPC/Joyce)_je241 

0 Achtung! lauft am CPC 464 nur mit Ccntr. 

' 5,25" LW (CPC/Joyce) je320.- 
N Achtungl Läuft am CPC 464 nur mit Contr. 
E Metallgehäuse (Inkl.Kabel an6chlu0fenig) 
C Dtakpera 3.5“ / 5,25 “ Formatsoftware 7 


Umweltschutzpapier 


Zweckform 1000 Bl. 


Drucker: 


Endlos 1000 Blatt 
weiß 

Etiketten 200 Stk . 

70 x 70 3- und 3.5* 


Datenrekorder + Kab. 98, 
Druckerkabel. 6128 . 38,- 
Druckerkabel 464/664 38, 
Monitorverlängerung: 


DMP 3160 (9-N.).448,- 

Star LC20 (9-N.).498,- 

NEC P20 . 898,- 

NECP60.„....1598,- 

Star LC24-10 (24-N.) 798,- 

Farbbänder: 

NLQ401/DMP.19,80 

Star LC 1020.19,80 

Star LC 24-10.24,80 

LQ 35-/NL10/PCW.24,80 

Joyce (Carbon).39,80 


Datenübertragung 

Dataphon (2400 Baud) 698,- 
Dataphon 21 (300 b) 298,- 
Dataphon 21-23 

(1200 Baud) ....398,- 

Software DFÜ.58.- 


Druckerverlängerung: 
für Joyce (2 Kabel)... 

Margin Maker 

Papierf. Joyce. 

Traktor NLO 401 . 

Joysticks 

Competitlon pro.39,80 Star LC 10 

Quickshot II.19,80 Star LC 24- 


JoyCO 256 KB(mlt Elnbauanleitung^S,- 


Vokabeltrainer / Verbentrainer. 

CPC / Joyce (3*) 49.- (Kas.) 39,- 

Lerntrainer Joyce.49,- 

Unlverseae Lernprogramm 

Terramaster CPC (Erdkundelemprg) 
3*Diskette / Kassette 59,—/49,— 


mit Kabel. keine Software nötig.In Verbindung 
mit einem MP 2 auch am TV betreibbar. 
Anschluß mit DBT03 oder Modem. 1 qo . 


Handscanner für PCW 8/*“* 
ProScan Software Installationsan. In deutsch 
mit englischem Handbuch. 7Q8 


iftea Kopterroodui I 


LocoScript2 (Textverarbeitung) 148,- 

mit deutschem Handbuch 

LocoSpelt2 (Rechtschrebung 168,- 

in deutsch mit engl. Handbuch 

Loco File (Datenbank) 168,- 

fOr LocoScrpt2 mit deutschem Handbuch 

Loco Font Set 1 und 2 79,80 / 68,40 


Vollständige Kopiereinrichtung für Kassetten 
und Disketten. 

Wird auf den Expansionsport Ihres CPC 
(464.646 und 6128) aulgesteckt. 

Wahlweise Kopieren von Kas. auf Disk, und 
umgekehrt. 1 JQ 

Adapter für CPC 6128 (DM 39,-) 


LoCOMall2 (Serlenbnef). 168, 

tOr LocoScrpt2 mit engl. Handbuch. 


en dlich auch für diejMS PC D OS Welt _ 

Darauf haben alle gewartet, die auf einen 
DOS-Rechner umsteigen wollten. Sie können 
Ihre Datenbeetfinde v.PCW auf den PC über¬ 
nehmen. Im Lieferumfang enthalten: 
-LocoScript CQO -LocoMaJI 

- Loco Spell OSO, . Loco File 


MINI DOS JOYCE.50,- 

Mit Hilfe dieser Software können Sie aut Ihrem 
Joyoe PCW MS-DOS-Dateion lesen, schreben 
und formatieren. Sie benötigen dazu ein 3.5*- 
oder 5.25* Diskettenlaufwerk 


englische» Handbuch 


Karf»Heinz Wecske 
Potsdamer ; ■ 

D-7150 Backnang 

Krassparkasse :j60250020) 

74397* PosJgiwSQt. 83326^81 


RJcknahmeangebot 
für CPC / Joyce 
Besitzer. Sollten Sie 
auf ein anderee 
System PC XT / AT / 
80386 umsteigen 
wollen, nehmen wir 
Ihre Gebrauchtanlage 
zu Höchstpreisen In 


Vorname. Name: 


Straße. Hausnummer; 


1 Mein Computersystem: 


64 KB . 

128 KB nicht für 6128 .... 

.149,- 

__198,- 

256 KB. 

.269,- 

320 KB nicht für 6128 .... 

_ 349 ,- 

512 KB. 

.419,- 


DD1 (lnkl. Contr.)____ 

.398,- 

Ein Muß für jeden CPC 464 -Besitzer 


Controller (auch einzeln erhältlich) 

198,- 

FD1 (2.-Laufwerk CPC) 3* 

198,- 

:• Achtungl Läuft am CPC 464 nur mit Contr. 

Kabel für FD1 nötig für 6128 / 664 

48.- 

FD4 (2.-ElnbauLaufw. Joyce) 3* 

398,- 


Amor: 

— 



: : C Jetzt auch für d«n Joyce und 

■i CPC 6128. Mit Compiler Linker 

und Editor. 


■ PROWORT. 

198,- 

! Textverarbehung mit Recht- 

: schreibprüf, und Mailmerge 

i PROSPELL (dt.) . 

.79,- 

: MAXAM II... 

239,- 

i Locomotive: 


LocoMall 1 . 

128,- 

: LocoScrfct + Spell. 

248,- 

: STAR DIVISION 

Statistik-Star . 

.98,- 

Starmail. 

.99,- 



i Mailing-System. 

189,- 

Star-Base. 

198,- 

Business-Star. 

298,- 

Fibu-Star Plus. 

298,- 

Kontenblatter Fbu .... 

.35.90 


.98.- 

--L 

































































































































































Am Character 
erkennt man den 
Druck 

Selbstdefinierte Zeichen 
auf dem CPC 

Besitzen Sie auch einen Matrixdrucker? Wenn ja, so 
standen Sie bestimmt schon einmal vor der Aufgabe, 
eigene Zeichen zu erstellen. Handelt es sich dabei um 
einen 24-Nadel-Drucker, wird die Sache noch kompli¬ 
zierter, da es recht viel Mühe erfordert, die einzelnen 
Punkte auszurechnen und anschließend an den Drucker 
zu senden. 

Das Programm DESIGNER.BAS versetzt Sie in die Lage, 
mit vertretbarem Aufwand Ihre eigenen Zeichen für einen 
24-Nadel-Drucker zu erstellen. Die Benutzeroberfläche er¬ 
möglicht eine gute Führung durch das Programm. In einem 
Raster entwerfen Sie Ihre Zeichen, die Sie gleichzeitig auf 
dem Bildschirm betrachten können. Auf Wunsch ist es mög¬ 
lich, diese jederzeit an den Drucker zu senden. Eine Voraus¬ 
setzung muß Ihr CPC aber erfüllen; der Centronics-Ausgang 
muß auf 8 Bit erweitert sein. Fehlt dieser Umbau, haben alle 
selbstdefinierten Zeichen zwei horizontale Striche. 

Nachdem Sie DESIGNER.BAS geladen und gestartet haben, 
erscheint eine Oberfläche, die in fünf Fenster aufgeteilt ist. 
In der Mitte des Bildschirms befindet sich das Editorfenster, 
auf dem ein Raster abgebildel ist, rechts davon das Menüfen¬ 
ster und links ein Fenster für den zu bearbeitenden Charac¬ 
ter. Im darunterliegenden Bildausschnitt können Sie ständig 
die aktuelle Form Ihres Zeichens kontrollieren. Im Fenster 
im unteren Bildschirmteil werden alle Zeichen aufgelistet, 
die mit dem Editor bearbeitet werden können. In der vorlie¬ 
genden Variante sind das die Darstellungen des ASC1I- 


Codes von 32 bis 127. Ge¬ 
nereller Ausgangspunkt al¬ 
ler Aktivitäten des Pro¬ 
gramms ist das rechts lie¬ 
gende Menüfenster. 
DESIGNER.BAS bietet die 
folgenden Programmfunk¬ 
tionen: 

Char nr. 

Ihre Arbeit beginnen Sie mit 
der Unterroutine Char nr. 
Hier können Sie im unteren 
Fenster mit Hilfe der Pfeil¬ 
tasten das Zeichen wählen, 
welches Sie umdefinieren 
möchten. Der ausgewählte 
Character beginnt nun lang¬ 
samer zu blinken. Wollen 
Sie lieber ein anderes Zei¬ 
chen wählen, fahren Sie er¬ 
neut mit dem Cursor auf das 
blinkende Zeichen und drük- 
ken <COPY> oder < EN¬ 
TER > , dann können Sie eine neue Auswahl treffen. 

Um wieder in das Menü zurückzukehren, fahren Sie mit dem 
Cursor in die rechte untere Ecke, in der ein kleines unterstri¬ 
chenes q steht. Betätigen Sic wieder <COPY > oder < EN¬ 
TER >. Das Zeichen, das Sie angewählt haben, erscheint 
nun im Fenster mit der Überschrift edited char. Falls dieses 
Zeichen schon einmal geändert wurde, wird es im Editorfen¬ 
ster dargestellt. 

Der Editor 

Mit Edit gelangen Sie danach in das Editier-Menti. Dies geht 
aber nur, wenn Sie bereits ein Zeichen vorab angewählt ha¬ 
ben, da ansonsten der Menübalken auf Char nr. zurück¬ 
springt. 

Im Edit-Menü sehen Sie sechs Meniipunkle. Mit der linken 
Cursor-Taste kommen Sie in den Editor. Im Raster erscheint 
ein blinkender Cursor, den Sie mit den Cursor-Tasten bewe¬ 
gen können. Mit der Taste <COPY> können Sic einen 
Punkt setzen beziehungsweise einen gesetzten Punkt löschen. 
In einem Kasten, der sich links neben dem Raster befindet, 
können Sie ständig das aktuelle Bild Ihres gerade editierten 
Zeichens kontrollieren. 

Haben Sie, worauf später noch nähereingegangen wird, Pro¬ 
portionalschrift gewählt, befinden sich am linken und rech¬ 
ten Rand im Editorfenster senkrechte Striche. Sie stellen die 
Ränder des Zeichens dar, mit denen Sie die Breite festlegen. 
Das ist nötig, da bei Proportionalschrift die Zeichen unter¬ 
schiedliche Abstände haben. 

Die linke Begrenzung können Sie mit <SHIFT> und je¬ 
weils der linken und rechten Cursor-Taste verschieben, die 
rechte mit <CTRL> und den entsprechenden Cursor-Ta¬ 
sten. Bei den Zeichenbreiten 10 cpi und 12 cpi bildet der 
Rand des Rasters zugleich den Rand des Zeichens. Wollen 
Sie den Editor wieder verlassen, fahren Sie mit dem Cursor 
einfach über den rechten Rand hinaus. Im Edit-Menü er¬ 
scheint daraufhin wieder der Menübalken. 

Das Raster 

Mit dem Unterpunkt Raster läßt sich das Raster ein- bezie¬ 
hungsweise ausblenden. 

Scroll 

Bei An wähl von Scroll erscheint ein Kreuz von Pfeilen, an 
deren Spitze jeweils eine Zahl steht. Betätigen Sie jetzt die 
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Richtungstasten, wird die Zahl in der jeweiligen Richtung er¬ 
höht und angezeigt, um wie viele Punkte das Zeichen ver¬ 
schoben wird. Wenn Sic Ihre Eingabe mit <COPY > bestä¬ 
tigt haben, beginnt der Computer mit der Berechnung der 
neuen Position und zeigt dies durch die Verkleinerung der 
Zahlenwerte an. Sind alle auf null, wird das Zeichen auf sei¬ 
ner neuen Position abgebildet. 

Mirror, Invert, Clear und Quit 

Mit Mirror lassen sich die Zeichen an der x- beziehungswei¬ 
se an der y-Achse spiegeln. Die Routine Invert invertiert das 
Zeichen. Clear löscht nach einer Sicherheitsabfrage sämtli¬ 
che gesetzten Punkte. Nach der Auswahl von Quit gelangen 
Sie wieder ins Hauptmenü. 

Store 

Nachdem Sie nun wieder im Hauptmenü sind, können Sie das 
Zeichen mit Store speichern. Als Hinweis auf eine erfolgte 
Bearbeitung werden die jeweiligen Buchstaben invertiert 
dargestellt. 

Copv 

Durch Copy ist es möglich, einzelne Zeichenbilder zu kopie¬ 
ren. Nach Anwahl dieses Menüpunktes erscheint wieder ein 
Cursor im unteren Fenster. Wählen Sie ein schon definiertes 
und ein nichtdefiniertes Zeichen an. Jetzt verlassen Sie das 
Fenster durch Anklicken des unterstrichenen q, und das erste 
wird in das zweite Zeichen kopiert. 

Clear 

Clear funktioniert ähnlich wie Copy. Auch hier erscheint im 
unteren Fenster ein Cursor. Jetzt wählen Sie einen oder meh¬ 
rere Buchstaben nach Ihrem Wunsch an und lösen, wie oben 
beschrieben, durch Verlassen des Fensters den Lösch Vor¬ 
gang aus. In diesem Spezialfall ist natürlich auch eine Sicher¬ 
heitsabfrage eingebaut. Haben Sie kein Zeichen selektiert, 
wird vom Programm gefragt, ob der gesamte Zeichensatz ge¬ 
löscht werden soll. Beantworten Sie diese Frage mit ja , wer¬ 
den sämtliche selbstdefinierten Zeichen gelöscht. 

General View 

Dieser Meniipunkt gibt einen Überblick über den von Ihnen 
erstellten Zeichensatz. Die Routine nimmt sehr viel Zeit in 
Anspruch, kann aber vorzeitig, durch Drücken einer beliebi¬ 
gen Taste, abgebrochen werden. 

Drive 

Im Menü Drive haben Sie vier Auswahlmöglichkeiten: 


1. Load chars 

Load gibt als erstes ein Inhaltsverzeichnis der auf der Disket¬ 
te befindlichen Zeichensätze aus. Mit dem Leuchtbalken le¬ 
gen Sie den Namen der zu ladenden Datei fest. 

2. Save chars 

Mit Save chars können Sie den definierten Zeichensatz auf 
Diskette abspeichern. Dafür stehen zwei Möglichkeiten zur 
Verfügung. Die eine ist die Speicherung als Arbeitsdatei mit 
der Endung “FNT“, die andere die Ablage auf der Diskette 
als ASCII-Datei, welche dann ohne größeren Aufwand an 
den Drucker gesandt werden kann. Ein Beispielprogramm 
dazu ist abgedruckt. ASCII-Dateien können mit dem De¬ 
signer nicht mehr bearbeitet werden, deshalb sollten Sie dar¬ 
auf achten, immer die Arbeitsdatei mit abzuspeichern. 

3. Merge chars: 

Merge chars und Load chars verhalten sich den BASIC-Be- 
fehlen LOAD und SAVE entsprechend. Das heißt, ein nach¬ 
geladener Zeichensatz wird mit dem im Speicher befindli¬ 
chen dergestalt gemischt, daß Zeichen für gleiche ASCII- 
Codes überschrieben werden. Zeichen, die nur in einem Zci- 
chensatz enthalten sind, bleiben dabei erhalten. 

4. Quit 

Mit Quit gelangen Sie wieder ins Hauptmenü. 

Printer 

Das Druckermenü bietet Ihnen drei Unterpunkte. 

7. Standard chars 

Mit Standard chars nehmen Sie die Grundeinstellungen für 
den Drucker vor. Aktive Einstellungen sind durch einen Ha¬ 
ken gekennzeichnet. Bei der Abspeicherung einer Arbeitsda¬ 
tei werden diese Werte mit auf der Diskette vermerkt. 

2. Download & Test 

Download & Test sendet Ihren selbstdefinierten Zeichensatz 
an den Drucker und stellt diesen auf den neuen Zeichensatz um. 
Zur Kontrolle werden jetzt alle Zeichen ausgedruckt, und Sie 
können eventuell notwendige Korrekturen durchführen. 

Quit 

bringt Sie jetzt wieder in das Hauptmenü zurück. 

Das Programm wurde auf einem LQ-500 getestet und funk¬ 
tioniert mit allen Epson-kompatiblen 24-Nadel-Druckern. 
DESIGNER.BAS besteht aus einem Listing. Als Beispiel 
zum Senden einer ASCII-Datei an den Drucker ist noch ein 
zweites Programm unter dem Namen ASCII.BAS abge¬ 
druckt. DESIGNER.BAS ist nur auf dem CPC 464 mit Dis¬ 
kettenlaufwerk funktionsfähig. 

(Thomas Gössi/Jörg Gurowski) 
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für 464 

1 - 




10 '******************* 
20 '* CHAR - DESIGNER * 
30 '* (c) 1990 * 

40 '*TOMYSOFT* 
50 /******************* 

60 


[669] 

[592] 

[516] 

[457] 

[669] 

[117] 

[1300] 

[1408] 

[3966] 


100 'Initialisierung 
110 SYMBOL AFTER 256 

120 IF HIMEM>&79FF THEN MEMORY &79FF:FOR q 
=31246 TO 42359 STEP 117:POKE q,0:NEXT 
130 OPENOUT"d":MEMORY HIMEM-1:catadr=HIMEM [4614] 
+2048:CLOSEOUT 

140 DIM b$(111):FOR q=l TO 111:b$(q)="0000 [1890] 
0000":NEXT 

150 FOR q=&7A00 TO &7A07:READ a$:POKE q,AS [2854] 
C(a$):NEXT 

160 DATA T,0,M,Y,S,0,F,T [1028] 

170 FOR q=33 TO 127:POKE &7A0D+((q-33)*117 [3058] 

), q:NEXT 

180 ra=l:pit=l:POKE &7A09,1:POKE &7A0A,0:P [4133] 
OKE &7A0B,0 

190 GOSUB 8110:GOSUB 8310 [1229] 

200 ' [117] 

300 'Main menu 

310 LOCATE 60,3:PRINT"Main menu"; [2953] 

320 RESTORE 330:LOCATE#2,1,1:FOR my=l TO 9 [5632] 

:READ m$(my):PRINT#2," ";m$(my):NEXT:my= 

1:IF 1=1 THEN l=0:my=3 

330 DATA Edit,Store,Char nr.,Clear,Copy,Vi [4583] 
ew chars,,Drive,Printer 

340 LOCATE#2,4,my:PRINT#2,CHR$(24);m$(my); [3531] 
CHR$(24); 

350 WHILE INKEY$="":WEND [1607] 

360 LOCATE#2,4,my:PRINT#2,m$(my); [1769] 

370 IF INKEY(0)=0 THEN my=my-l:IF rny=0 THE [6160] 

N my=9 ELSE IF my=7 THEN my=6 

380 IF INKEY(2)=0 THEN my=my+l:IF my=10 TH [2521] 
EN my=l ELSE IF my=7 THEN my=8 

390 IF INKEY(9)=0 OR INKEY(18)=0 THEN GOTO [2106] 
410 

400 GOTO 340 [464] 

410 ON my GOSUB 510,2110,2410,2610,2810,36 [3114] 
10,310,5010,7010 

420 IF my=2 OR my=6 THEN GOTO 310 ELSE IF [3830] 
my=l AND chnr=0 THEN l=l:GOTO 310 
430 CLS#2:GOTO 310 [543] 

440 ' [117] 

500 'Edit [439] 

510 IF chnr=0 THEN PRINT CHR$(7);:RETURN [1494] 
520 CLS#2 . [372] 

530 LOCATE 60,3:PRINT STRINGS(2,154)+"Edit [2916] 
"+STRINGS(3,154); 

540 RESTORE 540:LOCATE#2,1,1:FOR my=l TO 9 [6602] 
:READ m$(my):PRINT#2," ";m$(my):NEXT:m 

y=l:LOCATE#2,2,9:PRINT#2," "+CHR$(24)+" " + 

CHRS(242)+" "+CHR$(24)+" Editor" 

550 DATA Raster,Scroll,Mirror,Invert,"Clea [3216] 
r ",," Quit ",, 

560 LOCATE#2,6,my:PRINT#2,CHR$(24);m$(my); [2484] 
CHRS (24); 

570 WHILE INKEY$="":WEND [1607] 

580 LOCATE#2,6,my:PRINT#2,m$(my); [1470] 

590 IF INKEY(0 )=0 THEN my=my-l:IF my=0 THE [6412] 

N my=7 ELSE IF my=6 THEN my=5 

600 IF INKEY(2)=0 THEN my=my+l:IF my=8 THE [3259] 

N my=l ELSE IF my=6 THEN my=7 

610 IF INKEY(8)=0 THEN my=6:GOTO 630 ELSE [3638] 
IF INKEY(9)=0 OR INKEY(18)=0 THEN GOTO 630 
620 GOTO 560 [373] 

630 ON rny GOSUB 710,810,1310,1610,1710,181 [2502] 

640 IF my=7 THEN CLS#2:RETURN ELSE IF my=l [5989] 
OR my=4 OR my=5 OR my=6 THEN GOTO 530 ELS 
E GOTO 520 

650 ' [117] 

700 'Raster [815] 

710 IF ra=l THEN ra=0 ELSE ra=l [1775] 

720 GOSUB 9110:RETURN [1438] 

730 ' [117] 

800 'Scroll [732] 

810 CLS#2:LOCATE 61,3:PRINT"Scroll ; [1926] 

820 CLS#2:LOCATE#2,9,2:PRINT#2,CHR$(240):L [6730] 
OCATE#2,7,3:PRINT#2,CHRS(242)+" "+CHR$(2 
43):LOCATE#2,9,4:PRINT#2,CHRS(241) 

830 LOCATE#2,2,7:PRINT#2,"<COPY>: Execute" [5843] 

:PRINT#2:PRINT#2," <CLR> : Clear/":LOCATE# 
2,10,10:PRINT#2,"Quit" 

840 LOCATE#2,8,1:PRINT#2,USING"##";up:LOCA [7948] 
TE#2,4,3:PRINT#2,USING"##";le:LOCATE#2,12, 

3:PRINT#2,ri:LOCATE#2,8,5:PRINT#2,USING"## 

"; do 

Listing. DESIGNER.BAS _ 


[1607] 

[3873] 


[3594] 

[3282] 


850 WHILE INKEY$="":WEND 

860 IF INKEY(0)=0 THEN IF do>0 THEN do=do- 
1 ELSE IF up<9 THEN up=up+l 
870 IF INKEY(2)=0 THEN IF up>0 THEN up=up- [2428] 
1 ELSE IF do<9 THEN do=do+l 
880 IF INKEY(8)=0 THEN IF ri>0 THEN ri=ri- 
1 ELSE IF le<20 THEN le=le+l 
890 IF INKEY(1)=0 THEN IF le>0 THEN le=le- 
1 ELSE IF ri<20 THEN ri=ri+l 
900 IF up+do+ri+le=0 THEN IF INKEY(9)=0 OR [4092] 
INKEY(16)=0 OR INKEY(18)=0 THEN CLS#2:RET 
URN 

910 IF INKEY(9)=0 OR INKEY(18)=0 THEN GOTO [2209] 
940 

920 IF INKEY(16)=0 THEN up=0:do=0:ri=0:le= [1722] 
0 

930 GOTO 830 
940 GOSUB 8710 
950 FOR le=le TO 1 STEP-1 
960 bl$=b$(l):b2$=b$(2):b3$=bS(3) 

970 FOR bnr=l TO bx*3-5 

980 bS(bnr)=b$(bnr+3):b$(bnr+1)=b$(bnr+4): 
b$(bnr+ 2 )=b$(bnr+5) 

990 NEXT 

1000 b$(bx*3-2)=bl$:b$(bx*3-l)=b2$:b$(bx*3 [1617] 
)=b3$ 

1010 LOCATE#2,4,3:PRINT#2,USING"##";le-1 
1020 NEXT 

1030 FOR up=up TO 1 STEP-1 
1040 FOR bnr=l TO bx*3-2 STEP 3 
1050 b$=LEFT$(bS(bnr),1):bS(bnr)=RIGHT$(b$ 

(bnr),7)+LEFTS(b$(bnr+1j,1):b$(bnr+1)=RIGH 
TS(b$(bnr+1),7)+LEFT$(b$(bnr+2),1):b$(bnr+ 

2)=RIGHT$(b$(bnr+2),7)+b$ 

1060 NEXT 

1070 LOCATE#2,8,1:PRINT#2,'USING"##";up-l 
1080 NEXT 

1090 FOR do=do TO 1 STEP-1 
1100 FOR bnr=l TO bx*3-2 STEP 3 
1110 b$=RIGHTS(b$(bnr+2),1):b$(bnr+2)=RIGH 
TS(bS(bnr+1),1)+LEFT$(b$(bnr+2),7):bS(bnr+ 

1)=RIGHT$(b$(bnr),1)+LEFTS(bS(bnr+1),7):b$ 

(bnr)=bS+LEFT$(b$(bnr),7) 

1120 NEXT 

1130 LOCATE#2,8,5:PRINT#2,USING"##";do-l 
1140 NEXT 

1150 FOR ri=ri TO 1 STEP-1 

1160 bl$=b$(bx*3-2):b2$=b$(bx*3-l):b3$=b$( 
bx*3) 

1170 FOR bnr=bx*3-5 TO 1 STEP-1 
1180 b$(bnr+3)=b$(bnr):b$(bnr+4)=b$(bnr+1) 

:b$(bnr+5)=b$(bnr+ 2 ) 

1190 NEXT 

1200 b$(1)=bl$:b$(2)=b2$:b$(3)=b3$ 

1210 LOCATE#2,12,3:PRINT#2,ri-l 
1220 NEXT 

1230 CLS#4:CLS#5:TAGOFF:GOSUB 9010:TAG:GOS 
UB 8810:TAGOFF 
1240 CLS#2:GOSUB 8610:RETURN 


[318] 

[1146] 

[1044] 

[1941] 

[1151] 

[3606] 

[350] 


[2545] 

[350] 

[1209] 

[1439] 

[7382] 


[350] 

[1498] 

[350] 

[1351] 

[1439] 

[7831] 


[350] 

[ 1992] 
[350] 
[1570] 
[2230] 

[1944] 

[2867] 

[350] 

[2134] 

[2074] 

[350] 

[3373] 


1250 

1300 


[1455] 

[117] 

[771] 

[1784] 

[4564] 


Mirror 

1310 CLS#2:LOCATE 61,3:PRINT"Mirror"; 

1320 RESTORE 1330:LOCATE#2,1,1:FOR y=l TO 
9:READ m$(y):PRINT#2," ";m$(y):NEXT:y=l 

1330 DATA on x-Axis,on y-Axis,both Axes [3602] 
,," Quit " ,,,, 

1340 LOCATE#2,4,y:PRINT#2,CHRS(24);m$(y);C [2601] 
HR$(24); 

1350 WHILE INKEY$ = "":WEND [1607] 

1360 LOCATE#2,4,y:PRINT#2,m$(y); [1739] 

1370 IF INKEY(0)=0 THEN y=y-l:IF y=0 THEN [3688] 
y=5 ELSE IF y=4 THEN y=3 

1380 IF INKEY(2)=0 THEN y=y+l:IF y=6 THEN [3311] 
y=l ELSE IF y=4 THEN y=5 

1390 IF INKEY(9)=0 OR INKEY(18)=0 THEN GOT [2454] 
O 1410 

1400 GOTO 1340 [462] 

1410 IF y=5 THEN CLS#2 -.RETURN [1622] 

1420 LOCATE#2,4,y:PRINT#2,CHRS(24);m$(y);C [2601] 

HR$(24); ,,14*1 

1430 GOSUB 8710 [1146] 

1440 IF y=l THEN GOSUB 1520 [1430] 

1450 IF y=2 THEN GOSUB 1480 [859] 

1460 IF y=3 THEN GOSUB 1480:GOSUB 1520 [1356] 

1470 CLS#4:CLS#5:GOSUB 9010:TAG:GOSUB 8810 [4289] 
:TAGOFF:GOSUB 8610:CLS#2:RETURN 

1480 FOR bnr=l TO ((bx*3)-l)/2 [1297] 

1490 b$=b$(bnr):b$(bnr)=b$(bx*3-2-lNT((bnr [5666] 
-1)/3)*3+(bnr-l) MOD 3):b$(bx*3-2-INT((bnr 
-1)/3)*3+(bnr-l) MOD 3)=b$:b$="" 

1500 NEXT [350] 

1510 RETURN [555] 

1520 FOR bnr=l TO bx*3 [988] 
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1530 b$(bnr)=MID$(b$(bnr),8,1)+MID$(b$(bnr 
),7,l)+MID$(b$(bnr) / 6,l)+MID$(b$(bnr),5,1) 
+MIDS(b$(bnr),4,1)+MID$ (b$ (bnr),3,1)+MID${ 
b$(bnr),2,1)+MID$(b$(bnr),1,1) 

1540 NEXT 

1550 FOR bnr=l TO (bx*3)-2 STEP 3 

1560 b$=b$(bnr):b$(bnr)=b$(bnr+2):b$(bnr+2 

)=b$:b$="" 

1570 NEXT 
1580 RETURN 
1590 ' 

1600 'Invers 

1610 GOSUB 8710 
1620 FOR bnr=l TO bx*3 

1630 b$(bnr)=BIN$(VAL("&X"+b$(bnr)) XOR &X 
11111111,8) 

1640 NEXT 

1650 Z$=STRING$((bx-1)/2,254)+CHR$(255) 
1660 TAG:FOR y=0 TO 23:MOVE xof,yof-y*sy:P 
RINT z$;:MOVE xlof,ylof-y*2:DRAWR bx-l,0:N 
EXT:TAGOFF 

1670 z$=CHR$(255):GOSUB 8610:RETURN 
1680 ' 

1700 'Clear 

1710 LOCATE 57,16:PRINT"are you sure ?" 
1720 WHILE INKEY$<>"":WEND:t$="" 

1730 WHILE t$="":t$=INKEY$:WEND 
1740 LOCATE 72,16:IF UPPERS(t$)="Y" THEN P 
RINT"Y";:GOTO 1750 ELSE IF UPPERS(t$)="N" 
THEN GOTO 1780 ELSE PRINT CHR$(7);:GOTO 17 
20 

1750 FOR q=l TO 111:b$(q)="00000000":NEXT 
1760 lg=0:rg=0 

1770 CLS#4:CLS#5:GOSUB 9010:IF 1=0 THEN GO 
SUB 8890 

1780 GOSUB 8610:RETURN 
1790 ' 

1800 'Editor 
1810 x=bx-l:y=0:TAG 
1820 GOSUB 9140 

1830 a$=INKEY$:IF a$='"' THEN GOSUB 9140:zz 

=1:GOTO 1820 

1840 GOSUB 9140 

1850 IF INKEY(9)=0 THEN ZZ=1 

1860 IF zz>4 THEN zz=4 

1870 IF INKEY(8)=0 AND X>ZZ-1 THEN X=X-ZZ: 
zz=zz+l:IF x<4 THEN zz=l 
1880 IF INKEY(1)=0 THEN x=x+zz:zz=zz+l 
1890 IF INKEY(0)=0 AND y>zz-l THEN y=y-zz: 
zz=zz+l:IF y<4 THEN zz=l 

1900 IF INKEY(2)=0 AND y<by-zz THEN y=y+zz 

:zz=zz+l:IF y>19 THEN zz=l 

1910 IF x>bx-l THEN TAGOFF:RETURN 

1920 IF pit=3 AND a$>CHR$(245) THEN MOVE X 

of-l+lg*4,346:DRAW xof-l+lg*4,116:MOVE xof 

+149-rg*4,346:DRAW xof+149-rg*4,116 ELSE G 

OTO 1980 

1930 IF a$=CHR$(247) THEN IF lg<18 THEN lg 
=lg+l 

1940 IF a$=CHR$(246) THEN IF lg>-2 THEN lg 
=lg-l 

1950 IF a$=CHR$(251) THEN IF rg>-3 THEN rg 
=rg-l 

I960 IF a$=CHR$(250) THEN IF rg<18 THEN rg 
=rg+l 

1970 MOVE xof-l+lg*4,346:DRAW xof-l+lg*4,l 
16:MOVE xof+149-rg*4,346:DRAW xof+149-rq*4 
,116 

1980 IF INKEY(9)=-l THEN 1820 
1990 bnr=x*3+INT(y/8)+l:bit=y MOD 8+1 
2000 IF MID$(b$(bnr),bit,1)="0" THEN MID$( 
b$(bnr),bit,1)="l" ELSE MID$(b$(bnr),bit,l 
) = " 0 " 

2010 GOSUB 9140:GOTO 1820 
2020 ' 

2100 'Store 

2110 IF chnr=0 THEN PRINT CHRS(7);:RETURN 
2120 IF PEEK(&7A0E+(chnr-33)*117)=0 THEN G 
OTO 2180 

2130 LOCATE 57,16:PRINT"are you sure ? 

2140 WHILE INKEY$<>"":WEND:t$="" 

2150 WHILE t$="":t$=INKEY$:WEND 
2160 IF UPPERS(t$)="Y" THEN GOTO 2170 ELSE 
IF UPPERS(t$)="N" THEN GOTO 2330 ELSE PRI 
NT CHR$(7);:GOTO 2140 
2170 GOSUB 8710 

2180 POKE &7A0E+(chnr-33)*117,1 
2190 IF lg<0 THEN lg=lg+256 
2200 IF rg<0 THEN rg=rg+256 
2210 POKE &7A0F+(chnr-33)*117,lg 
2220 POKE &7A10+(chnr-33)*117,rq 
2230 FOR bnr=l TO 111 

2240 q=&7A10+(chnr-33)*117+bnr 
2250 POKE q,VAL("&X"+b$(bnr)) 

2260 NEXT 

Listing: DESIGNER.BAS 
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(350] 

[1370] 

[2763] 

[350] 

[555] 

[117] 

[189] 

[1146] 

[988] 

[3718] 

[350] 

[2040] 

[4487] 


[1168] 

[117] 

[563] 

[2701 ] 

[2191] 

[2453] 

[5795] 


[2037] 

[488] 

[4877] 

[1703] 

[117] 

[630] 

[1843] 

[ 1012 ] 

[3606] 

[ 1012 ] 

[560] 

[1434] 

[4144] 

[2049] 

[2564] 

[2968] 

[1432] 

[8093] 


[ 1496] 
[1751] 
[1342] 
[1909] 
[4787] 


[819] 

[2743] 

[4978] 


[ 1212 ] 

[117] 

[138] 

[1494] 

[2235] 

[2759] 
[2191 ] 
[2453] 
[4036] 


[1146] 

[1715] 

[1873] 

[1653] 

[2435] 

[1598] 

[762] 

[1503] 

[969] 

[350] 


2270 GOSUB 1750 

2280 LOCATE#3,4,4:PRINT#3," " 

2290 LOCATE 58,16:PRINT"Char stored !!" 
2300 IF chnr<65 THEN y=l ELSE IF chnr>96 T 
HEN y=3 ELSE y=2 

2310 x=(chnr-y*32)*2:LOCATE#l,x,y:PRINT#1, 
CHRS(24);CHRS(chnr);CHR$(24);:chnr=0 
2320 FOR q=l TO 1000:NEXT 
2330 GOSUB 8610:RETURN 
2340 ' 

2400 'Char nr. 

2410 GOSUB 3010 

2420 IF nr=0 THEN GOTO 2570 

2430 GOSUB 8710 

2440 chnr=nr 

2450 LOCATE# 3,4,4:PRINT# 3,CHR$(chnr); 

2460 l=l:GOSUB 1750:1=0 
2470 GOSUB 8710 

2480 POKE &7A0E+(chnr-33)*117,PEEK(&7A0E+( 
chnr-33)*117)-2 

2490 IF PEEK(&7A0E+(chnr-33)*117)=l THEN G 
OTO 2500 ELSE GOSUB 8890:GOTO 2570 
2500 lg=PEEK(&7A0F+(chnr-33)*117):IF lg>12 
7 THEN lg=lg-256 

2510 rg=PEEK(&7A10+(chnr-33)*117):IF rg >12 

7 THEN rg=rg-256 

2520 FOR bnr=l TO 111 

2530 q=&7A10+(chnr-33)*117+bnr 

2540 b$(bnr)=BIN$(PEEK(q),8) 

2550 NEXT 

2560 TAG:GOSUB 8810:TAGOFF 
2570 GOSUB 8610:RETURN 
2580 ' 

2600 'Clear 
2610 GOSUB 3010 

2620 IF co=0 THEN co=l:LOCATE 52,16:PRINT" 
clear all defined chars ?" ELSE co=3:LOCAT 
E 57,16:PRINT"are you sure ?"; 

2630 WHILE INKEY$<>"":WEND:t$="" 

2640 WHILE t$="":t$=INKEY$:WEND 

2650 IF UPPERS(t$)="Y" OR UPPERS(t$)="N" T 

HEN GOTO 2660 ELSE PRINT CHRS(7);:GOTO 263 

0 

2660 IF CO=l THEN LOCATE 78,16:PRINT UPPER 
$(t$) ELSE LOCATE 72,16:PRINT UPPERS(t$) 
2670 FOR nr=33 TO 127 

2680 IF PEEK(&7A0E+((nr-33)*117))<co THEN 
GOTO 2720 

2690 IF nr<65 THEN y=l ELSE IF nr>96 THEN 

y=3 ELSE y=2 

2700 x=(nr-y*32)*2 

2710 IF UPPERS(t$)="Y" THEN POKE &7A0E+((n 
r-33)*117),0:LOCATE#1,x,y:PRINT#1,CHR$(nr) 

; ELSE POKE &7A0E+((nr-33)*117),1:LOCATE#1 
,x,y:PRINT#l,CHR$(24);CHR$(nr);CHR$(24); 
2720 NEXT 

2730 GOSUB 8610:RETURN 
2740 ' 

2800 'Copy 

2810 GOSUB 3010 

2820 IF CO=0 THEN RETURN 

2830 GOSUB 8710 

2840 FOR nr=33 TO 127 

2850 IF PEEK(&7A0E+((nr—33)*117))=2 THEN P 

OKE &7A0E+((nr-33)*117),1:znr=nr 

2860 IF PEEK(&7A0E+((nr-33)*117))=3 THEN P 

OKE &7A0E+((nr-33)*117),1:qnr=nr 

2870 NEXT 

2880 POKE &7A0F+(znr-33)*117,PEEK(&7A0F+(q 
nr-33)*117) 

2890 POKE &7A10+(znr-33)*117,PEEK(&7A10+(q 
nr-33)*117) M 

2900 FOR bnr=l TO 111 

2910 POKE &7A10+(znr-33)*117+bnr,PEEK(&7A1 
0+(qnr-33)*117+bnr) 

2920 NEXT 

2930 LOCATE 57,16:PRlNT"Char copied" 

2940 IF znr<65 THEN y=l ELSE IF znr>96 THE 
N y=3 ELSE y=2 

2950 x=(znr-y*32)*2:LOCATE#1,x,y:PRINT#1,C 
HR$(24);CHRS(znr);CHRS(24);:znr=0:qnr=0 
2960 FOR q=l TO 1000:NEXT:GOSUB 8610:RETUR 
N 

2970 ' 

3000 'Auswahl des Zeichens 
3010 CLS#2:LOCATE 60,3:IF my=3 THEN PRINT" 
Char nr."+CHR$(154) ELSE IF my=4 THEN PRIN 
T STRINGS(2,154)+"Clear"+STRING$(2,154) EL 
SE PRINT STRINGS(2,154)+"Copy"+STRING$(3,1 
54) 

3020 LOCATE#2,9,1:PRINT#2,CHRS(240):LOCATE 
#2,7,2:PRINT# 2,CHRS(242) + " "+CHR$(243):L 
OCATE#2,9,3:PRINT#2,CHR$(241) 

3030 LOCATE#2,4,5:PRINT#2,"Move Cursor" 

3040 LOCATE#2,2,8:PRINT#2,"<ENTER>: " 

Listing DESIGNER.BAS 


[861] 

[1396] 

[1578] 

[2923] 

[4815] 

[1537] 

[1703] 

[117] 

[684] 

[967] 

[1066] 

[1146] 

[137] 

[2331] 

[381] 

[1146] 

[3358] 

[3175] 

[3455] 

[4515] 

[762] 

[1503] 

[1888] 

[350] 

[878] 

[1703] 

[117] 

[563] 

[967] 

[9058] 


[2191] 

[2453] 

[5887] 


[4198] 

[1172] 

[1756] 

[1379] 

[770] 

[9048] 


[350] 

[1703] 

[117] 

[364] 

[967] 

[881] 

[1146] 

[1172] 

[2885] 

[3848] 

[350] 

[3435] 

[2144] 

[762] 

[3544] 

[350] 

[2633] 

[4272] 

[4835] 

[2361] 

[U7] 

[1151] 

[ 11000 ] 


[6093] 


[1971] 

[1603] 
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3050 LOCATE#2,2,9:PRLNT#2,"<COPY> : Choose [2156] 


3060 x=2:y=l:DIM co(60):co=0 

3070 LOCATE#l,64,3:PRINT#1,CHR$(253); 

3080 LOCATE#1,x,y:IF inv=l THEN PRINT#1,CH 
R$(24);CHR$(nr);CHR$(24); ELSE PRINT#1,CHR 
$(nr); 

3090 IF t$=CHR$(240) THEN y=y-l:IF y=0 THE 
N y=l 

3100 IF t$=CHR$(241) THEN y=y+l:IF y=4 THE 
N y=3 

3110 IF t$=CHR$(243) THEN X=X+2:IF X=66 TH 
EN X=2 

3120 IF tS=CHR$(242) THEN X=X-2:IF X=0 THE 
N X=64 

3130 Z=Z+1:IF Z>co*2 THEN z=0:GOSUB 3410 
3140 nr=y*32+x/2 

3150 t$=INKEY$:IF t$=CHR$(224) OR t$=CHR$( 
13) THEN t$="":GOTO 3220 

3160 IF nr<128 THEN inv=PEEK(&7A0E+((nr-33 
)*117))MOD 2 

3170 IF PEEK(&7A0E+((nr-33)*117))>l AND bl 
i=l THEN IF (nr-33)<>95 THEN nr=95 ELSE nr 
=32 

3180 IF nr=128 THEN nr=253:inv=0 
3190 LOCATE#1, X, y: IF inv=l THEN PRINT#1,CH 
R$(nr); ELSE PRINT#1,CHRS(24);CHRS(nr);CHR 
$(24); 

3200 FOR W=1 TO 30:NEXT:GOTO 3080 
3210 ' 

3220 IF nr=128 THEN IF my=5 AND CO=l THEN 

PRINT CHR$(7);:GOTO 3160 ELSE bli=l:GOSUB 

3410:nr=co(co):ERASE co:RETURN 

3230 IF PEEK(&7A0E+((nr-33)*117))<2 AND co 

=1 AND my=3 THEN PRINT CHR$(7);:GOTO 3130 

3240 IF PEEK(&7A0E+((nr-33)*117))=0 AND my 

=4 THEN PRINT CHRS(7);:GOTO 3130 

3250 IF (my=5 AND PEEK(&7A0E+((nr-33)*117) 

)<2) AND (CO=2 OR PEEK(&7A0E+((nr-33)*117) 

)=CO) THEN PRINT CHR$(7);:GOTO 3130 

3260 IF my=5 AND PEEK(&7A0E+((nr-33)*117)) 

=3 AND co=2 THEN bli=l:GOSUB 3410:IF co(2) 

=nr THEN POKE(&7A0E+((CO(1)-33)*117)),0 EL 

SE POKE(&7A0E+((CO(2)-33)*117)),0 

3270 IF PEEK(&7A0E+((nr-33)*117))>1 THEN q 

=-2 ELSE q=2 

3280 CO=0:POKE &7A0E+((nr-33)*117),PEEK(& 7 
A0E+((nr-33)*117))+q 
3290 FOR q=33 TO 127 

3300 IF PEEK(&7A0E+((q-33)*117))>1 THEN CO 
=co+l:co(co)=q 
3310 NEXT:GOTO 3140 
3320 ' 

3400 'Blink interrupt 
3410 FOR q=l TO co 
3420 w=co(q) 

3430 IF w<65 THEN yy=l ELSE IF w>96 THEN y 
y=3 ELSE yy=2 

3440 xx=(w-yy*32)*2:LOCATE#1,xx,yy 

3450 IF bli=0 THEN IF CO(q)<>95 THEN w=95 

ELSE w=32 

3460 IF PEEK(&7A0E+((CO(q)-33)*117))=3 AND 
w=co(q) THEN PRINTfl,CHR$(24); 

3470 PRINT#1,CHR$(w);:IF PEEK(&7A0E+((co(q 
)-33 ) * 117 ))=3 AND W=CO(q) THEN PRINT#1,CHR 
$(24); 

3480 NEXT 

3490 bli=ABS(bli-l):RETURN 
3500 ' 

3600 'General view 

3610 MODE 2:PRINT CHR$(23)+CHR$(0) 

3620 FOR q=0 TO 17:PLOT q,0:DRAW q,640:NEX 
T 

3630 FOR q=18 TO 622 STEP 43:PLOT q,0:DRAW 
R 0,400:DRAWR 1,0:DRAWR 0,-400:NEXT 
3640 FOR q=621 TO 639:PLOT q,0:DRAW q,640: 
NEXT 

3650 PLOT 0,398:DRAW 640,398 
3660 FOR q=394 TO 56 STEP -56:PLOT 0,q:DRA 
WR 640,0:DRAWR 0,2:DRAWR -640,0:NEXT 
3670 FOR q=56 TO 6 STEP-2:PLOT 493,q:DRAW 
639,q:NEXT 

3680 FOR q=4 TO 0 STEP-l:PLOT 0,q:DRAW 640 
,q:NEXT 

3690 nr=19:FOR q=370 TO 56 STEP -56:nr=nr+ 
14:TAG:MOVE 8,q:PRINT CHR$(nr);:MOVE 624,q 
:PRINT CHR$(nr+13);:NEXT:MOVE 8,q:PRINT"u" 
;:TAGOFF 

3700 LOCATE 63,23:PRINT" press any key ":L 
OCATE 63,24:PRINT" to continue " 

3710 WHILE INKEY$o"":WEND 

3720 PRINT CHR$(24):IF pit=l THEN LOCATE 6 

7,25:PRINT"10 CPI" ELSE IF pit=2 THEN LOCA 

TE 67,25:PRINT"12 CPI" ELSE LOCATE 64,25:P 

RINT"proportional" 

Listing: DESIGNER.BAS 


[ 2204] 
[2477] 
[4880] 


[2394] 

[1877] 

[2274] 

[2937] 

[1951] 

[815] 

[3326] 

[2854] 

[5716] 


[3351] 

[5123] 


[2843] 
[117] 
[8082] 


[3317] 

[4846] 

[5758] 


[7697] 


[1933] 

[3886] 

[716] 

[2506] 


[117] 

[1568] 

[ 1102 ] 

[1189] 

[3082] 

[2218] 

[1790] 

[3127] 

[4768] 


[350] 

[381] 

[117] 

[1409] 

[1254] 

[2659] 

[3415] 

[2974] 

[655] 

[2965] 

[4050] 

[2860] 

[10522] 


[4501] 

[1786] 

[9476] 


3730 PRINT CHR$(24); 

3740 nr=32:IF pit=l THEN q=23 ELSE IF pit= 

2 THEN q=26 ELSE q=22 
3750 FOR ylof=390 TO 52 STEP -56 
3760 FOR xlof=q TO 622 STEP 43 
3770 nr=nr+l 

3780 IF nr>l-27 OR PEEK(&7A0E+((nr-33)*117) 

)=0 THEN GOTO 3890 
3790 FOR bnr=l TO bx*3 

3800 b$=BIN$(PEEK(&7A10+(nr-33)*117+bnr),8 

) 

3810 IF b$="00000000" THEN GOTO 3880 
3820 FOR bit=l TO 8 

3830 IF MID$(b$,bit,l)="0" THEN GOTO 3870 
3840 x=INT((bnr-1)/3):y=8*(bnr-1-(x*3))+bi 
t-1 

3850 PLOT xlof+X,ylof-y*2 

3860 IF INKEYSo"" THEN GOTO 3920 

3870 NEXT 

3880 NEXT 

3890 NEXT 

3900 NEXT 

3910 SOUND 1,75,150 :WHILE INKEYSo"" :WEND: 
CALL SBB18 

3920 GOSUB 8410:TAG:GOSUB 8810:TAGOFF:RETU 
RN 

3930 ' 

5000 'Drive 

5010 CLS#2:LOCATE 59,3:PRINT STRINGS(3,154 
);"Drive";STRINGS(3,154); 

5020 RESTORE 5030:LOCATE#2,1,1:FOR my=l TO 
9: READ m$ (my) : PRINT#2 , " " ;m$ (iny) :NEXT:in 

y=l 

5030 DATA "Load chars","Save chars","Mer 
ge chars",," Quit 

5040 LOCATE#2,4,my:PRINT#2,CHRS(24); mS (my) 

;CHR$(24); 

5050 WHILE INKEY$="":WEND 

5060 LOCATE#2,4,my:PRINT#2,m$(my); 

5070 IF INKEY(0)=0 THEN my=my-l:IF my=0 TH 

EN my=5 ELSE IF my=4 THEN my=3 

5080 IF INKEY(2)=0 THEN my=my+l:IF ray=6 TH 

EN my=l ELSE IF my=4 THEN my=5 

5090 IF INKEY(9)=0 OR INKEY(18)=0 THEN GOT 

O 5110 

5100 GOTO 5040 

5110 IF my=5 THEN CLS#2:RETURN 
5120 ON my GOSUB 5210,5410,5710 
5130 GOTO 5010 
5140 ' 

5200 'Loa$ä Chars 

5210 CLS#2:LOCATE 59,3:PRINT"Load Chars" 
5220 GOSUB 5910:GOSUB 6110 

5230 IF fi$=" - Quit - " THEN RETURN 

5240 LOCATE 59,16:PRINT"Loading..." 

5250 FOR q=&7A00 TO &7A07:POKE q,0:NEXT 
5260 LOAD fi$ 

5270 a$ = " " : FOR q=&7AOO TO S.7A07: a$=a$+CHRS 
(PEEK(q)):NEXT 

5280 IF aS="TOMYSOFT" THEN pit=PEEK(&7A09) 

:ita=PEEK(&7A0A):ger=PEEK(&7A0B):chnr=0:LO 
CATE#3,4,4:PRINT#3," ":GOSUB 1750:GOSUB 81 
10:GOSUB 8510:RETURN 
5290 SOUND 1,84,100,15 

5300 LOCATE 57,16:PRINT"no CHAR-file !!" 

5310 FOR q=l TO 2000:NEXT 

5320 LOCATE 54,16:PRINT"Resetting Characte 

rs" 

5330 LOCATE 57,17:PRINT"please wait !!" 
5340 FOR q=31246 TO 42359:POKE q,0:NEXT:RU 
N 

5350 ' 

5400 'Save Chars 

5410 CLS#2:LOCATE 59,3:PRINT"Save Chars" 
5420 PRINT#2," Normal or ASCII":PRINT#2, " 
format (A/N) ?" 

5430 t$=INKEY$:IF t$="n" OR t$="a" THEN GO 
TO 5440 ELSE GOTO 5430 

5440 LOCATE#2,2,4:1F tS = "n" THEN PRINT#2,C 
HR$(24);" Normal format ";CHRS(24) ELSE PR 
INT#2,CHRS(24)+" ASCII format ”+CHR$(24) 
5450 PRINT#2:PRINT#2," Save name:" 

5460 LOCATE#2,2,7:INPUT#2,"",fiS 

5470 IF fiS="" THEN RETURN ELSE IF INSTR(f 

i$,".")<>0 OR LEN(fi$)>8 THEN LOCATE#2,l,7 

:PRINT#2,SPACES(15)+CHR$(7):GOTO 5460 

5480 IF t$="n" THEN fi$=fi$+".FNT" ELSE fi 

S=fiS+".CHR" 

5490 GOSUB 5910 
5500 FOR q=l TO Z 

5510 IF MID$(f$(q),2,INSTR(2,f$(q)," ")-2) 
+RIGHTS(f$(q),5)=UPPER$(fi$)+" " THEN GOTO 
5600 

5520 NEXT 

5530 IF RIGHTS(fiS,3)="CHR" THEN GOTO 5560 
Listing: DESIGNER.BAS 


[1018] 

[2899] 

[1537] 
[1275] 
[ 938] 
[2419] 

[988] 

[1736] 

[1545] 

[600] 

[2917] 

[2778] 

[1271] 

[1413] 

[350] 

[350] 

[350] 

[350] 

[2399] 

[4331] 

[117] 

[855] 

[3931] 

[•3299] 


[4568] 

[3531 ] 

[ 1607 ] 
[1769 ] 
[5637 ] 

[3122] 

[ 2122 ] 

[395] 

[ 2010 ] 

[1590] 

[377 ] 

[117] 

[931] 

[2605] 

[2507] 

[697] 

[2794] 

[2313] 

[441] 

[3155] 

[9131] 


[1464] 

[2334] 

[1530] 

[2612] 

[2158] 

[2311] 

[117] 

[419] 

[2245] 

[3865] 

[4090] 

[7962] 


[1804] 

[1894] 

[6505] 


[1915] 

[1051] 

[953] 

[3897] 


[350] 

[2605] 
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Tips & Tricks— 


5540 SAVE fi$,b,&7A00,&2B77 
5550 GOTO 5620 
5560 OPENOUT fi$ 

5570 p=9:GOSUB 7710:PRINT#9,27;37;1; 

5580 CLOSEOUT 
5590 GOTO 5620 

5600 LOCATE#2,2,10:PRINT#2,CHR$(7)+"file a 
lready":PRINT#2," exists !!!":PRINT#2Ov 
erwrite ?"; 

5610 t$=INKEY$:IF t$="y" THEN PRINT#2Y" 
:]ERA,@fi$:GOTO 5530 ELSE IF t$="n" THEN G 
OTO 5620 ELSE GOTO 5610 
5620 ERASE f$ 

5630 GOSUB 8610 
5640 RETURN 
5650 ' 

5700 'Merge Chars 

5710 CLS#2:LOCATE 59,3:PRINT"Merge Chars" 
5720 GOSUB 5910:GOSUB 6110 

5730 IF fi$=" - Quit - " THEN RETURN 

5740 GOSUB 8710 

5750 FOR q=l TO 4:SOUND 1,80,50:FOR w=l TO 
500:NEXT:NEXT 
5760 MODE 2:INK 1,1 
5770 LOAD fi$,&COOO 

5780 a$="":FOR q=&C000 TO &C007:a$=a$+CHR$ 
(PEEK(q)):NEXT 

5790 IF a$o"TOMYSOFT" THEN SOUND 1,84,100 
,15:GOTO 5850 ' 

5800 FOR q=0 TO 12:POKE &7A00+q,PEEK(&C000 
+q):NEXT 

5810 FOR nr=33 TO 127 

OTO ° 5840 PEEK ( &C ° 0E+ ^( nr-33 )* 117 )) =0 THEN G 
5830 FOR bnr=l TO 114:POKE &7A0D+(nr-33)*1 
17+bnr,PEEK(&C00D+(nr-33)*117+bnr):NEXT ' 
5840 NEXT 

5850 GOSUB 1 750 : pit=PEEK ( &7A09 ):ita=PEEK(& 
7A0A):ger-PEEK ( &7A0B) :chnr=0 :GOSUB 8110:IN 
K 1,24:GOSUB 8410:RETURN 
5860 ' 

5900 'Directory einiesen 

5910 GOSUB 8710:LOCATE 1,1 

5920 PRINT CHR$(21);:CAT:PRINT CHR$(6); 

5930 DIM f$(64):ad=catadr 

5940 WHILE PEEK(ad)<>255:ad=ad+l:WEND:IF P 

P£(ad+1) <32 OR PEEK(ad+l)>126 THEN ad=ad+ 

1:GOTO 5940 

5950 2 = 1 :q=ad+l:WHILE PEEK(q)<>0 
5960 f$(z)="":FOR x=q TO q+10:f$(z)=f$(z)+ 
CHRS(PEEK (x)):POKE X,0:NEXT 1 ' 

5970 IF RIGHT$(f$(z),3)="FNT" THEN f$(z)=» 
+LEFTS(f$(z),8)+"."+RIGHT$(f$(z),3)+" »: 


[1063] 

[438] 

[776] 

[1213] 

[902] 

[438] 

[6652] 


[5832] 


[175] 

[1158] 

[555] 

[117] 

[1004] 

[2671] 

[2507] 

[697] 

[1146] 

[1454] 

[1472] 

[893] 

[3653] 

[3081 ] 

[1615] 

[117.2] 

[3847] 

[4374] 

[350] 

[6848] 


[117] 

[1665] 

[2640] 

[3233] 

[980] 

[4147] 


[1605] 

[3519] 

[5355] 


z=z+l ELSE f$(z)="" ' 

5980 q=q+14:WEND 

5990 z=z-l:IF ray<>2 THEN GOSUB 8610 
6000 RETURN 
6010 ' 

6100 'Auswahlmenue 

6110 z=z+l:f$(z)=" - Quit - " 

6120 CLS#6:FOR q=l TO 9:PRINT#6," "+f$(q) ; 
:NEXT:q=l:1=1:f=o 

6130 LOCATE# 6 ,2,1:PRINT#6,CHR$(24)+fS(q)+C 
HR5(24 ); 

6140 t$=INKEY$:IF t$=CHR$(240) THEN GOTO 6 
150 ELSE IF t$=CHR$(241) THEN GOTO 6190 EL 
0R t $=CHR$ (224 ) THEN fi$ 
= f$(q):ERASE f$:1=0:RETURN ELSE GOTO 6140 
6150 LOCATE#6,2,1:PRINT#6,f$(q); 

6160 IF 1=1 THEN IF z>9 THEN LOCATE#6,1,1: 
p RIN T # 6 ,STR ING $( 2 , 1 l) ; ELSE GOTO 6130 ELSE 

6170 q=q-l:IF q=0 THEN q=z 
6180 GOTO 6130 

6190 LOCATE#6,2,1:PRINT#6,f$ (q) ; 

6200 IF l=z THEN GOTO 6130 

6210 IF 1=9 THEN PRINT#6,CHR$(10) ELSE 1=1 

6220 q=q+l:IF q>z THEN q=l 
6230 GOTO 6130 
6240 ' 

7000 'Printer 

7010 CLS#2:LOCATE 60,3:PRINT CHR$(154);"Pr 
mter"; CHR$ (154); ' 

7020 RESTORE 7030:LOCATE#2,1,1:FOR my=l TO 
^4:READ m$(ray):PRINT#2," "+m$(my):NEXT:my= 

7030 DATA Standard chars,Download & Test, 

," Quit " 

LOCATE# 2,2, my: PR INT# 2 , CHR$ ( 2 4 ); m$ (my) 

,CHRS[24 ) ; 

7050 WHILE INKEY$="":WEND 

7060 LOCATEI2,2,my:PRINT#2,m$(my); 

7070 IF INKEY(0)=0 THEN my=my-l:IF my=0 TH 
EN my=4 ELSE IF my=3 THEN my=2 

Listing: DESIGNER.BAS 


[676] 

[1356] 

[555] 

[117] 

[956] 

[1720] 

[4145] 

[2472] 

[8284] 


[466] 

[3371] 


[127] 

[337] 

[466] 

[1510] 

[2346] 

[207] 

[337] 

[117] 

[178] 

[3461] 

[5135] 


[2921] 

[3873] 

[1607] 

[2571] 

[5606] 


7080 IF INKEY(2)=0 THEN my=my+l:IF my=5 TH 
EN my=l ELSE IF my=3 THEN my=4 
O°7110 F INKEY(9 ) =0 0R iNKEY(18)=0 THEN GOT 
7100 GOTO 7040 

7110 IF my=4 THEN CLS#2:RETURN 
7120 ON my GOSUB 7210,7510 
7130 GOTO 7010 
7140 ' 

7200 'Standard chars 

7210 CLS#2:RESTORE 7230:LOCATE#2,1,1:FOR m 
y=l TO 9:READ m$(my):PRINT#2," ";m$(my):N 

EXT:my=1:LOCATE# 2,16,pit:PRINT# 2,CHR$(1 +C 
HR$(6);:IF ita=l THEN LOCATE#2,16,5:PRINT# 
2,CHR$(1)+CHRS(6); 

ml (i) JcSHJ) ! HEN LOraTE * 2 '- 16 ' 6! ™* 2 ' c 

7230 DATA " 10 CPI 12 CPI " "P 

ropörtional",," Italic ","German chars 
,, / " Quit " 

7240 LOCATE#2,3,my:PRINT#2,CHR$(24);m$(my) 
;CHR$(24); 

7250 WHILE INKEY$="":WEND 

7260 LOCATE# 2,3,my:PRINT# 2,m$(my); 

7270 IF INKEY(0) =0 THEN my=my-l:IF my=0 TH 
EN my=9 ELSE IF my=8 THEN my=6 ELSE IF mv= 

4 THEN my=3 

7280 IF INKEY(2)=0 THEN my=my+l:IF my=10 T 
-7^THEN^ ELRE IE m V= 4 THEN my=5 ELSE IF my 

7290 IF INKEY(9)<>0 AND INKEY(18)<>0 THEN 
GOTO 7240 

7300 IF my=5 THEN IF ita=0 THEN ita=l:POKE 
&7A0A,1:LOCATE#2,16,5:PRINT#2,CHRS(1)+CHR 
$( 6 ); ELSE ita=0:POKE &7A0A,0:LOCATE#2,16, 

5:PRINT#2," "; ' ' 

7310 IF my=6 THEN IF ger=0 THEN ger=l:POKE 
&7A0B,1:LOCATE#2,16,6:PRINT#2,CHR$(1)+CHR 
$(6); ELSE ger=0:POKE &7A0B,0:LOCATE#2,16, 

6:PRINT#2," ' ' 

7320 IF my=6 THEN GOSUB 8110:GOSUB 7410 
7330 IF my<4 THEN LOCATE#2,16,pit:PRINT#2, 
x : L0CATE #2,16 ,pit: PRINT#2 , CHR$ (1 

)+CHR$(6); 

7340 IF my<>9 THEN GOTO 7240 

7350 IF pitoPEEK(&7A09) THEN CLS#4:CLS#5: 

GOSUB 9010:TAG:GOSUB 8810:TAGOFF 

7360 POKE &7A09,pit:RETURN 

7370 • 

7400 'Deutscher Zeichensatz 

7410 LOCATE#1,64,1:IF PEEK(S8839)=1 THEN P 

S^T # ^n^! ( ? 4);CHR$ ( 64 ^ ;CHR$ ( 24 ) ELSE pp l 

N1 # 1 ,CHRS(64) 

7420 FOR w=2 TO 3 

7430 LOCATE#1,54,w 

7440 FOR q=27+32*w TO 27+w+32*W 

7450 IF PEEK(&7A0E+((q-33)*117))=1 THEN PR I 

T«? # iuD^ $ ( 24);CHR$(q);CHR$(24); ELSE PRIN 
1 f1,CHRS(q ) ; 

7460 PRINT#1," " ; 

7470 NEXT q,w:RETURN 

7480 ' 

7500 'Download & Test 

7510 CLS#2:PRINT#2,"Please make sure,that [ 
the pnnteris "+CHR$ (24) + " 'on line'" + CHR 
$(24)+" anda paper is putin !!!" 
75 M,u RINT#2:PRINT#2:PRINT#2 '"P ress a °y ke [ 

7530 CALL &BB18:IF INP(&F500)<>26 THEN PRI [ 
NT CHR$(7);:GOTO 7530 1 

7540 LOCATE#2,1,8:PRINT# 2 ," ";CHR$( 24 );" r 
Downloading";CHR$(24);" Please wart 


[3508] 

[2106] 

[ 347] 

[1240] 

[1351] 

[361] 

[117] 

[953] 

[8263] 


[3752] 

[7791] 


[2769] 

[1607] 

[2248] 

[6514] 


[4112] 


[1773] 

[7039] 


[7728] 


[2618] 

[4122] 


[986] 

[3237] 

[1647] 

[117] 

[1352] 

[4465] 


[614] 

[621] 

[938] 

[5044] 


[582] 

[626] 

[117] 

[1506] 

[7610] 


[2804] 

[2099] 

[6247] 


7550 SOUND 1,70,150:p=8:GOSUB 7710 
7560 PRINT#8,CHR$(27) + "%0" ; 

7570 IF pit=l THEN PRINT#8,"10 CPI, ELS 

StEJ^ 2 THE N PRINT#8,"12 CPI, "; ELSE P 
RINT#8,"Proportional, " 

7580 PRINT#8,"German ch.set: ";:IF qer=0 T 
HEN PRINT#8,"OFF, ELSE PRINT#8,"ON, 

7590 PRINT#8,"Italics: ";:IF ita=0 THEN PR 
INT#8 , "OFF" ELSE PRINT#8>ON" 

7600 PRINT#8,CHR$(27) +"%1" 

PRINT#8 R q=33 T ° 80:PRINT # 8 / c HR$(q);:NEXT: 

7620 FOR q=81 TO 127:PRINT#8,CHR$(q);;NEXT 
:PRINT#8:PRINT#8 

7™ ^?v.S7 33 T0 127:PRINT#8,CHR$(q) + " ";: 
NEXT:PRINT#8:PRINT#8 

7640 SOUND 1,70,150:LOCATE#2,1,7:PRINT#2 ,C 
HR$(24);"New font in prin-ter loaded now 1 
!"+CHRS(24)+SPACE$(17)+"press any key !!!" 
;:CALL &BB18:RETURN 
7650 ' 

7700 'Zeichensatz senden 
Listing: DESIGNER.BAS 


[2043] 

[1457] 

[4526] 


[3567] 

[3930] 

[1286] 

[2405] 

[4168] 

[4208] 

[9009] 


[117] 

[1529] 




7710 IF pit=l THEN a$=CHR$(27)+"P" ELSE IF 
pit=2 THEN a$=CHR$(27)+"M" ELSE a$=CHR$(2 
7)+"pl" 

7720 IF ger=l THEN a$=a$+CHR$(27)+"R"+CHR$ 
(2) ELSE a$=a$+CHR$(27)+"R"+CHR$(0) 

7730 a$=a$+CHR$(27)+":"+CHR$(0)+CHR$(0)+CH 
R$(0) 

7740 IF ita=l THEN a$=a$+CHR$(27)+"4"+CHRS 
(0) ELSE a$=a$+CHR$(27)+"5" 

7750 GOSUB 7990 
7760 FOR nr=33 TO 127 

7770 IF PEEK(&7A0E+((nr-33)*117))=0 THEN I 

F nr<>127 THEN GOTO 7960 ELSE a$=CHR$(27)+ 

"&"+CHR$(0)+STRING$(2,127)+CHR$(0)+CHR$(1) 

+STRINGS(4,0):GOSUB 7990:GOTO 7960 

7780 a$ =CHR$(27) + "&":GOSUB 7990 

7790 IF nr<65 THEN y=l ELSE IF nr>96 THEN 

y=3 ELSE y=2 

7800 x=(nr-y*32)*2:LOCATE#l,x,y:PRINT#1," 

ii. 

7810 IF pit=3 THEN GOTO 7870 

7820 a$=CHR$(0)+STRING$(2,nr)+CHR$(0)+CHR$ 

(bx)+CHRS(0):GOSUB 7990 

7830 FOR bnr=l TO bx*3 

7840 a$=CHR$(PEEK(&7Al0+(nr-33)*117+bnr)): 
GOSUB 7990 
7850 NEXT 
7860 GOTO 7940 

7870 IF PEEK(&7A0F+((nr-33)*117))>127 THEN 
spl=256-PEEK(&7AOF+((nr-33)*117)):lg=l EL 
SE spl=0:lg=PEEK(&7A0F+((nr-33)*117))*3+l 
7880 IF PEEK(&7A10+((nr-33)*117))>127 THEN 
spr=256-PEEK(&7A10+((nr-33)*117)):rg=lll 
ELSE spr=0:rg=lll-PEEK(&7A10+((nr-33)*117) 
)*3 

7890 br=(rg+l-lg)/3 

7900 a$=CHR$(0)+STRINGS(2,nr)+CHR$(spl)+CH 
R$(br)+CHR$(spr):GOSUB 7990 
7910 FOR bnr=lg TO rg 

7920 a$=CHR$(PEEK(&7A10+(nr-33)*117+bnr)): 
GOSUB 7990 
7930 NEXT 

7940 IF nr<65 THEN y=l ELSE IF nr>96 THEN 
y=3 ELSE y=2 

7950 x=(nr-y*32)*2:LOCATE#l,x,y:PRINT#1 ,CH 
R$(24);CHR$(nr);CHRS(24); 

7960 NEXT 
7970 RETURN 
7980 ' 

7990 IF p=8 THEN PRINT#8,a$RETURN 
8000 FOR q=l TO LEN(a$):PRINT#9,ASC(MID$(a 
$,q,1));:NEXT:RETURN 
8010 ' 

8100 'Symbole 

8110 IF ger=l THEN SYMBOL AFTER 64 ELSE SY 
MBOL AFTER 127 

8120 SYMBOL 255,240,240,240,240,0,0,0,0 
8130 SYMBOL 254,255,255,255,255,0,0,0,0 
8140 SYMBOL 253,120,72,75,124,8,8,0,255 
8150 SYMBOL 127,0,0,0,0,204,51,204,51 
8160 IF ger=0 THEN RETURN 
8170 SYMBOL 126,60,102,102,124,102,102,108 


,24 

8180 SYMBOL 125,102,0,0,102,102,102,62,0 
8190 SYMBOL 124,102,0,60,102,102,102,60,0 
8200 SYMBOL 123,102,0,120,12,124,204,118,0 
8210 SYMBOL 93,102,0,102,102,102,102,60,0 
8220 SYMBOL 92,198,56,108,198,198,108,56,0 
8230 SYMBOL 91,102,0,60,102,126,102,102,0 
8240 SYMBOL 64,60,96,60,102,102,60,6,60 
8250 RETURN 
8260 ' 

8300 'Patch 
8310 WIDTH 255 
8320 RESTORE 8350 

8330 FOR i=&B072 TO &B08A:READ j:POKE i,j: 
NEXT 

8340 POKE &BD2B,195:POKE &BD2C,114:POKE SB 
D2D,176 

8350 DATA 254,128,56,18,197,213,1,0,246,17 
,0,32,237,81,205,136,176,237,89,209,193,20 
1,207,242,135 
8360 ' 

8400 'Bildaufbau 

8410 MODE 2:LOCATE 1,1:PRINT CHR$(24)+SPAC 
E$(29)+"CHAR - DESIGNER"+SPACE$(43)+"(c) 1 
990"+SPACE$(41)+"T O M Y S O F T"+SPACE$(9 
)+CHR$(24) 

8420 WINDOW 1,80,3,25:WINDOW#l,8,71,21,23: 
WINDOW#2,56,72,7,16:WINDOW#3,9,15,6,9:WIND 
OW#4,26,48,4,18:PEN#4,0:PAPER#4,1:WINDOW#5 
,9,14,13,16:WINDOW#6,56,72,7,15 


[3814] 


[4817] 

[1910] 

[4390] 

[829] 

[1172] 

[8225] 


[711] 

[1379] 

['2040] 

[814] 

[3866] 

[988] 

[2914] 

[350] 

[391] 

[7823] 


[5780] 


[652] 

[3473] 

[407] 

[2914] 

[350] 

[1379] 

[2757] 

[350] 

[555] 

[117] 

[1305] 

[3495] 


[369] 

[3641] 

[1674] 

[2252] 

[2430] 

[1535] 

[1150] 

[2638] 

[1677] 

[ 2072] 

[2673] 

[ 2333] 

[2264] 

[1997] 

[1854] 

[555] 

[117] 


[713] 

[2539] 

[2626] 

[4526] 


[117] 

[936] 

[10123] 


[9553] 


Lisling DESIGNER.BAS 


8430 LOCATE 7,3:PRINT CHR$(150);STRINGS(8, 
154);CHR$(156):FOR q=l TO 4:PRINT TAB(7);C 
HR$(149);SPACES(8);CHR$(149):NEXT:LOCATE 7 
,8:PRINT CHRS(147);STRINGS(8,154);CHR$(153 

8440 PRINT#3,"edited char" 

8450 CLS#4:GOSUB 9010:IF 1=0 THEN GOSUB 88 
90 

8460 LOCATE 55,3:PRINT CHR$(150);STRING$(1 

7.154) ;CHR$(156):FOR q=l TO 11:LOCATE 55,V 
POS(#0):PRINT CHR$(149);SPACES(17);CHRS(14 
9):NEXT:LOCATE 55,15:PRINT CHR$(147);STRIN 
G$(17,154);CHR$(153); 

8470 LOCATE 7,18:PRINT CHRS(150);STRINGS(6 

5.154) ;CHR$(156):FOR q=l TO 3:PRINT SPACES 
(6);CHR$(149);SPACES(65);CHRS(149):NEXT:LO 
CATE 7,22:PRINT CHR$(147);STRINGS(65,154) ; 
CHRS(153); 

8480 ' 

8500 'Zeichen ins Charwindow setzen 
8510 LOCATE#1,1,1 
8520 FOR q=33 TO 128 
8530 PRINT#1," "; 

8540 IF PEEK(&7A0E+((q-33)*117))=1 THEN PR 
INT#1,CHRS(24);CHRS(q);CHRS(24); ELSE PRIN 
T#1,CHRS(q); 

8550 NEXT 

8560 LOCATE#l,64,3:PRINT#1,CHR$(253); :RETU 
RN 

8570 ' 

8600 'Zeile loeschen 

8610 LOCATE 52,16:PRINT SPACES(27):RETURN 
8620 ' 

8700 'Wartezeile 

8710 LOCATE 57,16:PRINT"Please wait !!!":R 

ETURN 

8720 ' 

8800 'Aufbau der Punkte im Gitter 
8810 FOR bnr=l TO bx*3 

8820 IF b$(bnr)="00000000" THEN GOTO 8880 
8830 FOR bit=l TO 8 

8840 IF MIDS(b$(bnr),bit,1)="0" THEN GOTO 
8870 

8850 x=INT(( bnr-l)/3):y=8*(bnr-l-(x*3))+bi 
t-l 

8860 GOSUB 9140 
8870 NEXT 
8880 NEXT 

8890 IF pit=3 THEN MOVE XOf-l+lg*4,346:DRA 
W xof-l+lg*4,116:MOVE xof+149-rg*4,346:DRA 
W xof+149-rq*4,116 

8900 LOCATE#3,4,4:PRINT#3,CHRS(chnr);:RETU 
RN 

8910 ' 

9000 'Aufbau des Gitters 

9010 by=24:IF pit=l THEN bx=35 ELSE IF pit 
=2 THEN bx=29 ELSE bx=37 

9020 xof=218+((37-bx)*2):xlof=70+(37-bx)/2 
9030 LOCATE 1,1:PRINT CHRS(23)+CHRS(1); 
9040 sx=4:sy=8 
9050 z$=CHRS(255) 

9060 PLOT 700,0,1 
9070 yof=326:ylof=200 

9080 MOVE xof-1,yof+ 2:DRAWR sx*bx+ 2,0:DRAW 
R 0,-sy*by-4:DRAWR-sx*bx-2,0:DRAWR 0,sy*by 
+ 4 

9090 PRINT CHRS(23)+CHRS(0):MOVE xlof-l,yl 
of+2:DRAWR bx+1,0:DRAWR 0,-50:DRAWR -bx-1, 
0:DRAWR 0,50:MOVE xlof-2,ylof+4:DRAWR bx+3 
,0:DRAWR 0,-54:DRAWR -bx-3,0:DRAWR 0,54:PR 
INT CHRS(23)+CHRS(1) 

9100 IF ra=0 THEN GOTO 9130 
9110 FOR i=0 TO bx:MOVE xof+i*sx,yof:DRAWR 
0,-sy*by:NEXT 

9120 FOR i=0 TO by:MOVE xof,yof-i*sy:DRAWR 
sx*bx,0:NEXT 
9130 RETURN 

9140 MOVE xof+x*sx,yof-y*sy:PRINT z$;:PLOT 
xlof+x,ylof-y*2:RETURN 

Listing DESIGNER BAS 


[11982] 


[1288] 

[2364] 

[10331] 


[11331] 


[117] 

[2965] 

[571] 

[707] 

[582] 

[5044] 


[350] 

[2910] 

[117] 

[416] 

[2416] 

[117] 

[940] 

[3325] 

[117] 

[2132] 

[988] 

[1166] 

[600] 

[1595] 

[2778] 

[ 1012 ] 

[350] 

[350] 

[5060] 


[3104] 

[117] 

[420] 

[3240] 

[ 1963] 

[1529] 

[291] 

[875] 

[507] 

[744] 

[4975] 


[10185] 


[1438] 

[1925] 

[2182] 

[555] 

[2518] 


10 '********************************** [1391] 

20 '* Beispielprogramm, wie ein File * [1235] 

30 '* im ASCII-Format geladen und an * [816] 

40 '* den Drucker gesandt wird. * [2220] 

50 '********************************** [1391] 

60 WIDTH 255 [957] 

70 OPENIN"kursiv.ehr" [1183] 

80 WHILE NOT EOF [1840] 

90 INPUT#9,a [691] 

100 IF a>l27 THEN OUT &F600,32 ELSE OUT &F [4568] 
600,0 '8. Bit ein bzw. ausschalten 
110 PRINT#8,CHR$(a); [1302] 

120 WEND [390] 

130 CLOSEIN [752] 

Listing ASCII.BAS 
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Kleinanzeigen—i 


Biete Software 


PD-Power Katalogdisk aufgefüllt 
mit feinster PD z.T. aus Eng¬ 
land und Frankreich für nur 
DM 10,- bei: PD-Power, 

Postfach 152, D-2055 Aumühle 


■CPC-PD SPIELE + ANWENDERPRG.l 
Liste 100 PF bei: Peter Breuker, 
Rektenstraße 10,4930 Detmold 1 


1) ETIKETTEN DRUCKEN: ein- u. 
mehrbahnig, freie Formatwahl, 
Zentrier/Fett/Schmaldruck etc. 

2) 2D-MESSDATEN AUSWERTEN für 
Schule + Studium: Grafik, 

Korrelation, Regression, Hardcopy 

Je Programm 49, -, f. alle CPCs 
Gratisinfo: J, Claßen, Geschw.- 
Scholl-Str. 3/010, 3550 Marburg G 


Für JOYCE: Turbo-Pascal3, Loco- 
Script2, Gemico CH-Fibu. Alles 
orig, mit Handb. -> Y, Flückiger, 
Schollstr, 13, CH-2504 Biel 


ACHTUNG II ERWACHSENE 

12 Disk. 5 1/4 oder 3 1/2 mit delikaten 
Programmen f, IBM PC/Kompatible 
Nur DM 40, - VS/Bar. M. Karbach, 
Remscheider Str.18, 5650 Solingen G 


PD-SOFTWARE - ,65 bis 2.- 

Für IBM/Kompat. Kat-Disk, gratis. 

M. Karbach, Flemscheider Str. 18, 

5650 Solingen 1 G 


■ CPC&JOYCE PUBLIC DOMAIN ■ 

• Ein Info ist für 2 x 100 Pf erhältlich • 

■ PDI, Pf 1118, D-6464 LinsengerichtG 


VERKAUFE DTP-Prg "PRO-BOOSTER' 
3"- DISC M Dl. Handbuch DM 30, - 
D. SCHÜMANN, SEEUFERSTR. 58, 
8036 HERRSCHING 2 


* Wirtschaftliche Programme * 

* für die Arztpraxis auf * 

* dem Schneider CPC, Joyce, PC * 

* Fa. EFFEKTA, Am Wiggert 9c, * 

* 4500 Osnabrück,05 41/442416 G * 


Biete Hardware 


SMARTLINK MODEM 300/1200/2400 
DM 300 VB TEL. 089/7251747 


CPC 6128+ GT65 + 51/4"-ZweitLw, + Lit. 
+ ca. 30 org. Spiele + DMP2000 + Zubeh. 
RALPH Derhsen, Budericherstr. 75, 
4156 WILLICH 81, 021 54/40327 
ab 18 UHR CHIFFRE 91/00137 PC 


HARDWARE: DRUCKER NLQ401 
SOFTWARE: CPC464, ALLE HEFTE VON 
1985-1989-CPC-INTERNATIONAL, DA- 
TABOXEN, DIV. SONDERHEFTE + DISK. 
TEXTOMAT V. DATA-BECKER, DATAMAT 
V, DATA-BECKER, STASTAR v. STAR-DI¬ 
VISION, VERWALT.-ARCHIV V. DATA- 
MEDIA, DIV. BÜCHER ZUM CPC. 

R. GABRIEL, 

TEL. 040.7239074 ab 18.00 UHR 


100 DISKETTEN 3,5" 2DD 93, - DM 
02922/82195 G 


Verkaufe CPC 6128 mit Farb¬ 
monitor und viel Zubehör 
(Software, Bücher, Zeitschriften). 
Tel.: 078 41,73 91 


CPC 6128 Grün, Verkaufe Anlage, 
Vortex 5,25", Transfile zu 
Sharp-Pockets, Top-Original- 
Software: Arnor C, Prowort, Turbo 
Pascal-Graphix-Toolbox, PARA- 
Plus, Faire Preise, 0 22 33/21664 


CPC 464 + CT65 + SOFTWARE IKASS) + 30 
HEFTE VB 350 DM, TEL: 06205/17323 


FD1, neuwtg. m. Kbl + 25 Disks 3" VB 
DM 199,-. Tel. 07072/2285 


CPC 464, GT 65, Doppelfloppy Fl 
(VORTEX), Drucker SP1000CPC, 
Software (Wordstar, Spiele), 
Bücher, u.v.m. nur 650 DM 
J. Sabbarz, Jocksdorfer Str. 7, 
Groß Kölzig, 0-7571 
Tel.: Döbern/6308 


Suche Software 


Suche Hardcopy-Routine für 
Star LC-20-Drucker auf Cass. 
für CPC-464 

Friedhelm Brosowski, Bunsenstr. 14, 
4200 Oberhausen 11, 

Tel. 0208/68 5511 ab 18 Uhr 


SUCHE FÜR 6128 TETRIS 
GUTWIRTH 08761/4728 


Suche die Kombipacks (Kass. 1 + 2) 
zu den alten CPC-Sonderheften! 
Ausgaben: 4/87, 5/87, 6/88!!! 

A. Maier, Schubertring 9, W-8522 
Herzogenaurach. Als Kassetten! 


Suche Disksort-Star, Fancy-Font 
und CPC-lnt.-Hefte 3-8/1985 
Tel. 07274/1488 


Suche Literatur f. CPC 464, 
Veitengruber, Poppenreuther Str. 7, 
8500 Nürnberg 90 


Joyce-Sonderheft 1, Joyce-Joystick 
mit Controller; Wegener, Caspar- 
David-Friedrich-Weg 1,3380 Goslar 


TAUSCHE GHOSTBUSTERS II GEGEN 
INTERNATIONAL KARATE PLUS. TEL.: 
02471/2848, MITTWOCHS AB 15UHR 


SOFTWARE FÜR JOYCE, BÜCHER, PC 
INTERN, MIT DATABOX GESUCHT. 
ALLES ANBIETEN! W. WUNN, GAL¬ 
GENWEG 14,2359 HENSTEDT-ULZB.4 


Suche Hardware 


SUCHE SCHNEIDER CPC 464 ODER 
6128 M. DISK-LAUFWERK + GRÜN¬ 
MONITOR * VB DM 400, -, BÄCKMANN 
TEL. 06092/804 *VOLLFUNKTIONSF. 


Suche Drucker für CPC 464 
z.B. NLQ 401 

Tel. 0421/681795 (nach 14.00 Uhr) 


CPC 6128, RS232, T. Fach, 

0-7050 LEIPZIG, PORTITZER STR. 58 


BTX-DECODER FÜR CPC 6128 
MICHAEL HANKE, 8370 REGEN, 
TEL. 09921-5700 


SU. FARBMONITOR CTM 081 06/5547 


SUCHE FASTDISK VON OTTEN&FECHT 
U. STOPPRESS 6128. T, 0911 / 68 71 82 


Verschiedenes 


SUCHE CPC-Int, 3/85-5/85 und 7/85- 
9/85! Tel: 02331/22708 


Computersoft und Hardware 
EDV-Artikel 

R. Christiansen, Postfach 1315, 

2390 Flensburg, Tel: 0461/28075 
Computer und Druckertyp angeb. G 


Konvert. JOYCE + CPC nach MS-DOS 

Texte + Dat. mit IBM-Uml. INFO 
J. Debus, Gärtnerweg 25 B, 

6382 Friedrichsdorf, 0 61 75/5 44 G 


Disketten-, Datenkonvertierung 
JOYCE, CPC auf MS-DOS, ATARI 

Bernd Drost, Schulstr. 67, 

6382 Friedrichsdorf, Tel. 061 75/604 G 


CPC-Hardware, Monitore, Drucker, 
3"-3 1/2"-5 1/4" Floppy, EURO-PC, 
286 & 386 SX AT, Festplatten, BTX, 
Ankauf, Reparaturen, 02303-13345, 
M. Kobusch, Bergenkamp 8,4750 Unna G 


Club 


USER-CLUB für Amstrad/Schneider- 
PC-1640/1512-Anwender sucht noch 
Mitglieder, Informations- und Erfah¬ 
rungsaustausch stehen an erster 
Stelle. Info kostenlos bei Willy Stern, 
Kennedystr. 38, 8039 Puchheim. An¬ 
fragen auch unter BTX-Nr. 
0898002545, es wird gleich geant¬ 
wortet. 


Berlin 


^COMPUTEREI^ 



Jemomole' Ojmm 12 
1000 Bemr <2 
Am U Bn lemoet 
Tel 7 52 209- 



Castrop-Rauxel 


EtC GUTE IDEE NACH DER A7CEREN 

Schuster Electronic 

C *** »* N * IN MCI«N - C * A *. itC * • 

Schneider 

C Uertragshandlcr 

C Commodore 

Vertragswerkstatt 

Obere Munsterstr 33 4620 Castrop-Rauxel (023O5)3770j 



Einträge möglich minde¬ 
sten 6 x innerhalb eines 
Insertionsjahres. 


Nähere Informationen: 
DMV-Verlag 
Sylvia Stephani 
Telefon (0 56 51) 8 09-380 


Löhne/Ostwestfalen 


Csirpjttr. & SrtsBWOTi ■! NcKhuiutsaiinJ: 

AVtSTPAD, KHNEIBtfl S VORIEX fcQicnMrid !. SERVICE- 
CENTRALE. Str> CtntmlK lliuclci, Axigti i s luamjr 
v. A-2, SDV Papier «t • CisH 

F-'i OBERWEIER compltitr. t:i r rAx-tnx-HiF. - vidlo-tv- 
- NEC - EPSOfl • TAf JCO'J - BHO- HE SEIKO - OKI-STAR - LOCO-olp 
an Bamhot'BörwSttale20*^972LÖHNt I-Isl 05732 6126'3?^6 


Eintragungen im Händler¬ 
verzeichnis, nach Städten 
geordnet, kosten je mm 
Höhe 6,- DM bei einer 
Spaltenbreite von 58 mm. 
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I—Tips & Tricks 



fir+utorx-Erwt If-erunq 


f1!t üie-s-sr flrt'j'crx-Eri^ltsTL'ng kann 
"•ar. Texte in der- uäcforschrift in 
jeder H-innelirvchtung schreibe.-. bab€' 
wird die fiusyabt dafür getrcfffen als 
ob dieses Feature nie gefehlt hatte. 
Nach der Auswahl der Schriftgröße 
erscheint ein weiteres Fenster de>‘- 
/•tan dann die Richtung der SchnNt aus- 
wähler. kann. 


Prograririeri- lärur g 


In alle 

Himmelsrichtungen 

AWXPATCH - eine 
Erweiterung für ARTWORX 

Desktop Publishing auf dem CPC - Sie haben richtig 
gelesen. Wir veröffentlichten in Ausgabe 11/88 das 
Superprogramm ARTWORX. Wie kann es anders sein, 
nichts ist vollkommen, und so stellten wir nach und nach 
auch einige Erweiterungen vor. Hier nun wieder eine 
Verbesserung: AWXPATCH. ARTWORX wird immer 
besser. 


ARTWORKS ist eines der besten DTP- und Zeichenpro¬ 
gramme, die je für den CPC entw ickelt wurden. Mit diesem 
Programm sind dem grafischen Erstellen von Schriftstücken 
und Zeichnungen aller Art kaum noch Grenzen gesetzt. 

ARTWORX - die Sen sation 

Seine wichtigste Eigenschaft ist die Kompatibilität zu ande¬ 
ren Grafikprogrammen. ARTWORX hat eine komfortable 
Benutzeroberfläche. Zur Auswahl der unterschiedlichen Zei¬ 
chenmöglichkeiten. wie Linien zeichnen, Ausfallen oder 
Sprühen können auf der linksseitigen Menüleiste Icons ange- 
w'ählt werden. Dies geschieht durch die Pfeiltasten oder den 
Joystick. Als besonderes Bonbon kann man mit einem inte¬ 
grierten Editor Text in wählbarer Größe und auf beliebiger 
Position einarbeiten. 

Mit AWXPATCH wird es nun möglich, diese Texte in Vek¬ 
torschrift darzustellen. Diese neue Erweiterung kann in das 
bisherige Programm so eingebunden werden, als ob sic nie¬ 
mals gefehlt hätte, was sich vor allem im Editor-Menü deut¬ 
lich zeigt. 

Wählt man den Editor an, das große A. erscheint als erstes 
das Auswahlmenü für die Schriftgröße. Nach erfolgter Wahl 
muß man nun in einem folgenden Menü zwischen vier Wer¬ 
ten für die Schreibrichtung wählen. Hier sind jetzt nur noch 


die Pfeiltasten und die COPY-Taste verwendbar. Hat man 
sich entschieden, geht es weiter wie in der Urversion — nur 
daß die Schrift jetzt beliebig ausrichtbar ist. 

Um mit der neuen Erweiterung arbeiten zu können, stellt 
man sich eine Diskette zusammen, auf der sich folgende Pro¬ 
gramme befinden müssen: 

ARTWORX.BAS 
ARTWORX.BIN 
ARTWORX.PRG 
ARTWORX.GRF 

Zusätzlich muß auch die hier vorgestellte Erweiterung, das 
Programm PATCH.BAS, kopiert werden. 

Das Programm muß dann einmal gestartet werden, damit es 
die Binärdatei AWXPATCH.BIN erstellt und anschließend 
die Datei ARTWORX.PRG patcht. Dies bewirkt, daß das 
Hauptprogramm an zwei Stellen, dem Aufruf des Schriftgrö¬ 
ßenmenüs und vor dem Zeichnen der Buchstaben, in die Er¬ 
weiterung abzweigt. Die neuen Programmteile wurden aus 
Platzgründen im BASIC-Stack plaziert. In das BASIC-Pro- 
gramm ARTWORX.BAS fügt man vor die Zeile, in der der 
Aufruf call &8000 steht, noch folgende neue Zeile ein: 

LOAD “AWXPATCH.BIN»,&AF00 

Jetzt ist ARTWORX mit der neupn Erweiterung lauffähig. 
Man kann es wie bisher auf allen CPCs einsetzen. 

(Hermann Bach/Jörg Gurowski) 


für 464-664-6128 


a 


10 DATA 3A,FE,AF, B7,28,1A,FE,01,28,OA,FE,0 [3349] 

2,28,0C,EB,CD 

20 DATA 24 , AF, 18,0C, EB, CD, 2C, AF,18,06,CD, 2 [340-0] 

C, AF,CD,24,AF 

30 DATA 0A,E6,80,C9,7C,2F,67,7D,2F,6F,Z3,C [2746] 
9,7B,2F,5F,7A 

40 DATA 2F,57,13,C9,3A,3D,0D,B7,28,3B,CD,7 [3080] 

9,AF,CD,8F,AF 

50 DATA CD,18,BB,CD,8F,AF,FE,F0,20,0C,3A,F [2281] 
E,AF,B7,28,ED 

60 DATA 3D,32,FE,AF,18,E7,FE,F1,20,0D,3A,F [2325] 
E,AF,FE,03,28 

70 DATA DC,3C,32,FE,AF,18,D6,FE,FC,20,06,C [3072] 

D, DF,93,C3,6F 

80 DATA 00,FE,E0,20,C8,CD,DF,93,C9,FD,21,A [3083] 
9,AF,21,OB,14 

90 DATA 06,08,C5,E5,CD,E5,93,FD,23,E1,2C,C [2122] 
1,10„F4,C9,F5 

100 DATA 3A,FE,AF,26,19,C6,0D,6F,06,08,C5, [3918] 
E5,01,00,F0,CD 

110 DATA 4A,BC,E1,24,C1,10,F3,F1,C9,D4,0E, [2941] 
D5,D6,00,D7,AB 

Listing: PATCH.BAS _ 
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120 DATA AB,AB,52,69,63,68,74,75,6E,67,AB, [2515] 
AB, AB, D8,0 0 , D7 

130 DATA 0E,D5,D8,00,D7,07,AB,30,AB,47,72, [3456] 
61,64,AB,D8,00 

140 DATA D7,06,AB,39,30,AB,47,72,61,64,AB, [2541] 
D8,00,D7,05,AB 

150 DATA 31,38,30,AB,47,72,61,64,AB,D8,00, [2355] 
D7,05,AB,32,37 


160 DATA 30,AB,47,72,61,64,AB,D8,00,D9,0E, 
DA,DB,00,00 

[2526] 

200 

DEFINT a-z 

[553] 

210 

1 TAPE:OPENOUT "duramy":CLOSEOUT:|DISC 

[1198] 

220 

MEMORY &1FFF 

[710] 

230 

FOR i=0 TO 254 

[465] 

240 

READ a$ 

[309] 

250 

a=VAL("&"+a$) 

[1273] 

260 

POKE &8000+i,a 

[348] 

270 

NEXT 

[350]- 

280 

SAVE "awxpatch.bin",b,&8000,&FF 

[1476] 

290 

LOAD "artworx.prg",&2000 

[1603] 

300 

POKE &2AC6,&34 

[549] 

310 

POKE &2AC7,&AF 

[519] 

320 

POKE &3142,&CD 

[448] 

330 

POKE &3143,0 

[458] 

340 

POKE &3144,&AF 

[340] 

350 

SAVE "artworx.prg" ,b,&2000,&15C0 

[2241] 


Listing- PATCH.BAS 
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LocoScript-Tips 

Noch mehr Tips für LocoScript 

Immer wieder beweisen findige Leser, daß es an dem doch in der Zwischen¬ 
zeit als professionell zu bezeichnenden LocoScript noch an manchen Stellen 
Verbesserungen vorzunehmen gilt. Auch diesen Monat haben wir wieder so 
einiges zu bieten. 


1. Ein Hauch von Stil 

(Listings ST1L121.SUB, ST1L216.SUB 
und STIL228. SUB) 

Ein Blick über die Schulter eines 'gro¬ 
ßen Bruders’ auf den Bildschirm seines 
PCs zeigt, daß andere Textverarbei¬ 
tungsprogramme die Zwischenräume 
(oder wie LocoScript ab Version 2.16 
es nennt: die Leerzeichen) nicht durch 
ein merkwürdiges kleines Dreieck, 
sondern durch einen dezenten Punkt 
mitten zwischen den Zeichen markie¬ 
ren; für die Kennzeichnung der Absät¬ 
ze verwenden Sie nicht den abgewin¬ 
kelten Pfeil, sondern das viel profes¬ 
sioneller aussehende 91-Zeichen. 

Das geht auch bei LocoScript. 

Der Patch ist ganz einfach: 
Zwischenräume: Schreiben Sie ab der 
nachstehend aufgeführten Adresse die 
Bytes 18 00 00: 

J21GLOCO.EMS: ABC4, 
J216LOCO.EMS: 95F8, 

J228LOCO. EMS: 4BC2; 

(den dezenten Punkt sehen Sie natür¬ 
lich nur dann, wenn Sie während der 
Textbearbeitung diese Option mit 
<f8> eingestellt haben); 

Absätze: Hier tragen Sie die Bytes 3F 
7A 7A 3A 0A 0A 1B beginnend bei der 
folgenden Adresse ein: 

J21GLOCO. EMS.A BFO, 

J216LOCO. EMS.9624, 

J228LOCO. EMS.4BFE; 
damit sieht das 91-Zeichen zur Markie¬ 
rung eines Absatzes ein wenig unter¬ 
schiedlich im Vergleich zu dem aus, 
das Sie mit <EXTRA> <P> (Ver¬ 
sion 1.21) bzw. < ALT> <SHIFT> 
<3> (ab Version 2.16) erreichen. 
Das Suchen/Ersetzen bleibt weiterhin 
uneingeschränkt möglich. 

2. Einfacher Zugang zu Hochzahlen 

(Listing HOCH. SUB) 

Wer häufig — zum Beispiel für wissen¬ 
schaftliche Texte - Hochzahlen zum 
Beziffern von Anmerkungen benötigt, 
wird wenig erfreut darüber sein, daß 
LocoScript sie auf der SYMBOL-Ebene 
verwaltet. Das zwingt zum zweimaligen 
Umschalten der Tastatur (<ALT> 


<f7> beziehungsweise <ALT> 
<fl>). 

LocoScript ab Version 2.16 bietet zwar 
die Möglichkeit, mit LOCOCHAR die 
Drucker-Zeichensätze MATRIX.??? 
— und damit auch die Bildschirmzei¬ 
chen - in geringem Umfang zu verän¬ 
dern. für denjenigen, der aber lediglich 
einen einfacheren Zugang zu den 
Hochzahlen, nicht aber selbst gestalte¬ 
te Zeichen wünscht, ist das ein um¬ 
ständliches Verfahren. Schließlich 
muß jeder der verwendeten Drucker- 
Zeichensätze einzeln angepaßt werden. 
Eine einfache Lösung des Problems — 
für die LocoScript-Zeichensätze des 
eingebauten MATRIX-Druckers wie 
des 24-Nadel-Druckers - führt über 
eine Veränderung der Overlay-Datei 
für die Tastatur. KEYBOARD.JOY. 
Es bietet sich an. die wenig benutzten 
eingekreisten Zahlen 0. .9 gegen die ge¬ 
wünschten Hochzahlen 0..9 auszutau¬ 
schen. Diese Umbelegung der Tastatur 
schafft den Zugang mit 
<EXTRA>< 1 >.. <0> , stellt mit 
Loslassen der < EXTRA >-Taste den 
normalen Zeichensatz wieder bereit 
und beeinflußt gleichermaßen Bild¬ 
schirm wie 9- beziehungsweise 24- 
Nadel-Drucker. 

Was ist zu tun? Die Bytes für die einge¬ 
kreisten Zahlen I ..0 finden sich in der 
Datei KEYBOARD.JOY ab Adresse 
&H04E0 und lauten 
00 BI 00 B2 00 B3 00 B4 00 B5 00 B6 
00 B7 00 B8 00 B9 00 B0, 
die für die Hochzahlen 1..() 

01 31 01 32 01 33 01 34 01 35 01 36 01 
3701 38 01 39 01 30 
stehen ab Adresse &H0180. Jetzt müs¬ 
sen diese beiden Byte-Gruppen nur 
noch mittels SID.COM oder einem an¬ 
deren geeigneten Programm ausge¬ 
tauscht werden. Dieser Patch gilt für 
LocoScript-Version 2.16 und 2.28a 
gleichermaßen. 

3. Bildschirmzeichen für LocoScript 
Version 2.28a 

(Listing SCRCHAR. SUB) 

In den LocoScript-Tips in der PCI 
8/9'90 fehlten Hinweise für die Ver¬ 


sion 2.28a. Der Grund dafür ist ein¬ 
fach: Der Bildschirm-Zeichensatz ist 
ab Version 2.26 in einer gesonderten 
Datei, SCRCHAR.JOY, mit einer ei¬ 
genen Prüfsumme enthalten. Verände¬ 
rungen führten bisher unweigerlich zu 
der Meldung 

ERROR in Datei: SCRCHAR. JOY Da¬ 
tei-Prüfsummenfehler 
Operation abbrechen. 

Der Autor erhielt auf ein Schreiben an 
Locomotive Software mit Vorschlägen 
für eine Veränderung des Bildschirm- 
Zeichensatzes (zum Beispiel bei den 
Umlauten und dem ’ß’) Dank und den 
Hinweis, an eine solche Modifikation 
des Programms sei nicht gedacht. 

Die folgende Untersuchung hat ge¬ 
zeigt, daß eine Datei nur dann geladen 
wird, wenn die Prüfsumme mit der in 
den Bytes an Adresse &H0161, 
&H0162 und &H017F enthaltenen In¬ 
formation übereinstimmt. Die Wech¬ 
selbeziehungen zwischen den ersten 
beiden Bytes und dem dritten sind mir 
jedoch immer noch ein Geheimnis. Bei 
diesen Versuchen wurde aber klar, daß 
man in der Datei soviel ’herurapat- 
chen' kann, wie man will. Hauptsache 
die Gesamtprüfsumme wird nicht ver¬ 
ändert. In der Praxis bedeutet das. Hin¬ 
zufügen und Wegnehmen müssen aus¬ 
gewogen sein. Allerdings kann bei ei¬ 
nem 'nicht ausgewogenden Wegneh¬ 
men’ durch entsprechendes Hinzufügen 
bei den OO-Bytes am Ende der Datei die 
Prüfsumme wieder austariert werden. 
Der folgende Patch für SCRCHAR 
.JOY macht sich das zunutze. Er be¬ 
trifft neben der “Nachlieferung zu Heft 
8/9'90“ die Zeichen 
“ , 1 257;GIJOZßazÄÖÜäöü. 
Er gilt für beide zu LocoScript 2.28a 
passenden Ausgaben von SCRCHAR 
.JOY (Standard-Zeichensatz wie bis 
zur Version 2.16 oder die auf der 
<ALT>-, < EXTRA >-beziehungs¬ 
weise < ALT >< f3 >-Ebene erwei¬ 
terte Fassung). 

Viel Spaß weiterhin mit dem guten, al¬ 
ten LocoScript! 

(Hans-Joachim Fricke/rs) 


Für diejenigen, die den Patch nicht 
per Hand durchführen möchten, 
steht selbstverständlich auf der 
DATABOX die jeweils einzusetzen¬ 
de Submit-Datei zur Verfügung. 
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DateSet 

Datumseingabe mit Komfort 

Bereits bei dem auf den Systemdisketten des PCW mitgelieferten Dienst¬ 
programm DATE.COM soll es schon vorgekommen sein, daß der Anwen¬ 
der bei einem der vielen mißglückten Eingabeversuchen das Handtuch 
geworfen und auf jegliche Datumseingaben via Computer verzichtet hat. 


das Datum eingestellt werden. Die 
Uhrzeit wird ebenfalls mit den Cursor¬ 
tasten und anschließendem Druck auf 
die RETURN-Taste in der Reihenfolge 
Stunde/Minute/Sekunde eingestellt. 
Zum Schluß wird noch eine Kontroll- 
abfrage beantwortet, und das Datum 
sowie die Uhrzeit werden berechnet 
und neu installiert. Zu guter Letzt hat 
man noch die Wahl, ob man das Pro- 



Die Eingabe des Monats erfolgt über einen Auswahlbalken 


Mit unserem Programm kann der An¬ 
wender — auf einem kleinen Umweg 
über BASIC - das Computerdatum 
und die Uhrzeit wesentlich komforta¬ 
bler eingeben. Fehleingabcn, wie zum 
Beispiel ein falscher Tastendruck oder 
ein Punkt als Trennzeichen beim Da¬ 
tum, entfallen somit vollständig. Wird 
die Zeile BASIC DATESET in die 
PROFILE.SUB-Datei eingefügt, kann 
die Datums- und Zeiteinstellung direkt 
beim Start des Computers vorgenom¬ 
men werden. Somit bietet das Pro¬ 
gramm für jede Softwaresammlung 
eine Bereicherung. 

Eingabe 

Auch derjenige, der gerade seine er¬ 
sten Schritte in der BASIC-Program- 
mierung unternimmt, kann bei dem 
übersichtlich geschriebenen und gut 
dokumentierten Programm so manches 
lernen. Die Eingaben von Datum und 
Zeit erfolgen über die Cursortasten. 


Nach der Auswahl von Jahr und Monat 
im Balkenmenü wird ein kalenderblatt¬ 
ähnliches Bild auf dem Monitor ausge¬ 
geben. Mit den Cursortasten kann nun 


gramm beenden will, um im BASIC zu 
verbleiben oder direkt ins CP/M zu- 
rückzuspringt. 

Richard Walter/rs 


LISTING >DATESET <, REMARK 


< 3> 


<53> 

<92> 

<77> 

<94> 

< 5> 
<70> 
<53> 
< 68 > 
<19> 
<57> 
<91> 
<97> 

< 20 > 

< 5> 

< 21 > 

<87> 

< 66 > 

<42> 

<17> 

<69> 

<84> 

<64> 

<60> 

<76> 

< 68 > 

<60> 

<96> 


1 REM ******************* Dateset.bas ************ 
********* 

2 REM ****** MenUorientierte Datumsinitialisierung 
******** 

3 REM ************* von Richard Walter *********** 
********* 

4 : 

5 REM ***** Variablenbelegung **** 

6 : 

7 esc$=CHR$(27) 

8 cls$=esc$+"E":home$=esc$+"H": 

9 cl$=esc$+"1"+CHRS(0)+cls$+home$ 

10 can$=esc$+"e":caus$=esc$+"f" 

11 invon$=esc$+"p":invoff$=esc$+"q": 

12 loesch$=". . " . 

13 DEF FNp${z,s)=esc$+"Y"+CHR$(32+Z)+CHR$(32+S) 

14 DEF FNwindow$(x,y,h,b)=esc$+"X"+CHR$(32+x)+CHR$ 
(32+y)+CHR$(31+h)+CHR$(31+b) 

15 DEF FNi$(txti$)=esc$+"p"+txti$+esc$+"q" 

16 DEF FNpkt$(xx,yy,zeichenkette$)=esc$+"Y"+CHR$(3 
2+xx)+CHRS(32+yy)+zeichenkette$ 

17 DEF FNS(x)=INT(x/10)*16+x M01 

18 DIM m(12) 

19 DATA 31,28,31,30,31,30,31,31,30,31,30,31 

20 FOR n=l TO 12:READ m(n):NEXT 

21 PRINT cls$;home$ 

22 GOSUB 198 

23 : 

24 REM **** Kopfzeile **** 

25 rahmen$="01,01,88,03":GOSUB 202:rahmen$="01,35, 
28,03":GOSUB 202 

26 PRINT invon$;FNpktS(2,37,". DATESET.BAS. Vers.2 
. 1 . " ) 

27 PRINT FNpktS(3,37,". fi by R. Walter / 1991. "); 
invoff$ 

28 PRINT FNwindow$(5,2,24,86) 

29 : 


MOD 10 


Listing: DATESET 


Bitte Jahr. 


<82> 30 REM *** Jahr bestimmen 
<81> 31 : 

<21> 32 rahmen$="01,40,15,3":G0SUB 202 
<39> 33 PRINT causS;invonS;FNpktS(2,41, 

<93> 34 PRINT FNpktS(3,41,". bestimmen.. ");invoff$ 

<38> 35 RESTORE 36:GOSUB 179 

< 5> 36 DATA 10,6,6,40,1990,1991,1992,1993,1994,1995,19 

96,1997,1998,1999 

<80> 37 ON up GOTO 38,39,40,41,42,43,44,45,46,47 

<89> 38 1=90:GOTO 48 

<98> 39 1=91:GOTO 48 

<88> 40 ]=92:GOTO 48 

<97> 41 j=93:GOTO 48 

< 7> 42 j=94:GOTO 48 
<16> 43 j=95:GOTO 48 
<25> 44 j=96:GOTO 48 
<34> 45 1=97:GOTO 48 
<43> 46 ]=98:GOTO 48 
<52> 47 j=99:GOTO 48 

<59> 48 PRINT cls$:ts=(j/4)-(78/4):IF j MOD 4=0 THEN m( 
2 )=29 
<98> 49 : 

<76> 50 REM *** Monat bestimmen *** 

<83> 51 : 

<23> 52 rahmen$="01,40,15,3":GOSUB 202 

<25> 53 PRINT invon$;FNpktS(2,41,". Bitte Monat ) 

<95> 54 PRINT FNpktS(3,41,". bestimmen.. ");invoff$ 

<64> 55 RESTORE 56:GOSUB 179 

<76> 56 DATA 7,15,6,35,JANUAR,FEBRUAR,MÄRZ,APRIL,MAI,JU 
NI,2. HALBJAHR 

<92> 57 ON up GOTO 58,59,60,61,62,63,65 

<15> 58 n=l:GOTO 76 

<23> 59 n=2:GOTO 76 

<12> 60 n=3:GOTO 76 

<20> 61 n=4:GOTO 76 

<28> 62 n=5:GOTO 76 

<36> 63 n=6:GOTO 76 

<90> 64 : 

Listing: DATESET 
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<77> 65 RESTORE 66:GOSUB 179 

<41> 66 DATA 7,15,6,35,JULI,AUGUST,SEPTEMBER,OKTOBER,NO 
VEMBER,DEZ EMBER,1. HALBJAHR 
<29> 67 ON up GOTO 68,69,70,71,72,73,74 
<52> 68 n=7:GOTO 76 
<60> 69 n=8:GOTO 76 
<49> 70 n=9:GOTO 76 
<59> 71 n=10:GOTO 76 
<68> 72 n=ll:GOTO 76 
<77> 73 n=12:GOTO 76 
<86> 74 GOTO 55 
<93> 75 : 

<69> 76 REM *** Tag festlegen **** 

<97> 77 : 

<88> 78 PRINT clsS:rahmen$="05,44,35,4":GOSUB 202 

< 6> 79 PRINT invon$;FNp$(6,45)+" "+CHR$(2S3)+". Bitte 

wählen Sie den Tag mit. 

<72> 80 PRINT FNpkt$(7,45,"... den CURSORTASTEN und akt 
ivie- ") 

<63> 81 PRINT FNp$(8,45)+" "+CHR$(253)+". ren Sie mit R 

ETURN. ";invoff$ 

<77> 82 rahmen$="04,04,35,6":GOSUB 202 
<30> 83 t=l 

<51> 84 FOR t=l TO (m(n)-l) STEP +1: 

<72> 85 IF t>m(n) THEN GOTO 91 

< 7> 86 ze=5+INT(t/7): 

<84> 87 sp=5+5*(t MOD 7) 

< 3> 88 PRINT FNp$(ze,sp)+" ";:PRINT USING"##";t+1;:PRI 

NT" " 

<18> 89 NEXT 
<25> 90 t=l 

< o> 91 PRINT FNp$(5,5)+invon$; 

<96> 92 PRINT " ";:PRINT USING"##";t;:PRINT" "+invoff$ 
<52> 93 GOSUB 205 
<27> 94 ze=5:sp=5:nr=0 

< 3> 95 suchS=INKEY$:IF such$="" THEN GOTO 95 

<39> 96 PRINT FNp$(ze,sp)+" ";:PRINT USING"##";t;:PRINT 

II II ■ 

< 6> 97 IF SUCh$=CHRS(6) THEN IF sp>30 GOTO 103 ELSE sp 

=sp+5 

<53> 98 IF such$=CHRS(1) THEN IF sp<=5 GOTO 103 ELSE sp 
=sp-5 

<24> 99 IF SUCh$=CHR$(30) THEN IF ze>9 GOTO 103 ELSE Ze 
=ze+l 

< 2> 100 IF such$=CHR$(31) THEN IF ze<=5 GOTO 103 ELSE 

ze=ze-l 

<17> 101 IF SUCh$=CHR$(13) THEN GOTO 106 
<13> 102 t=(sp+5)/5-l+(ze-5)*7 

<82> 103 IF t>m(n) THEN t=l:GOTO 91 ELSE PRINT FNp$(ze, 
sp)+invon$; 

<20> 104 PRINT " ";:PRINT USING"##";tPRINT" ";invoff$ 

<61> 105 GOTO 95 

<25> 106 t=(sp+5)/5-l+(ze-5)*7 

< 0> 107 IF t>m(n) THEN GOTO 91 
<38> 108 : 

<24> 109 REM **** Berechnung der Tage ***** 

<16> 110 : 

<63> lll mt=0:FOR z=l TO n-1:mt=mt+m(z):NEXT 
<23> 112 tage=((j-78)*365)+mt+ts+t 
<25> 113 : 

<18> 114 REM *** Uhrzeit stellen *** 

<31> 115 : 

<24> 116 st=0:mi=0:se=0 

< 7> 117 PRINT cls$ 

<71> 118 rahmen$="05,37,21,4":GOSUB 202 
<78> 119 PRINT invon$;FNpktS(6,38," Std. / Min. / Sek. 
") 

<59> 120 PRINT FNpktS(7,38,". :. :. ");invo 

ff$ 

<40> 121 GOSUB 147:GOSUB 150:GOSUB 153 
<12> 122 rahmen$="l2,31,31,3":GOSUB 202 
<23> 123 PRINT invonS;FNpktS{13,32," Mit den Cursortast 
en wählen. ") 

<70> 124 PRINT FNpktS(14,32," Anschließend [RETURN] ... 
... ");invoff$ 

< 8> 125 GOSUB 205 

< 4> 126 REM -> Stunden 

<94> 127 PRINT FNpS(8,41);invonS;CHRS(94);invoff$ 

<52> 128 SUCh$=INKEY$:IF SUChS="" THEN GOTO 128 
<15> 129 IF SUch$=CHRS(l) OR SUch$=CHRS(30) THEN st=st- 
1:GOSUB 147 

<22> 130 IF such$=CHR$(6) OR such$=CHR$(31) THEN st=st+ 
1:GOSUB 147 

<20> 131 IF such$=CHRS(13) THEN GOTO 133 

<23> 132 GOTO 128 

<22> 133 REM > Minuten 

<25> 134 PRINT FNpS(8,41);loeschS;FNp$(8,48);invonS;CHR 
$(94);invoff$ 

<59> 135 SUCh$=INKEY$:IF such$="" THEN GOTO 135 
<18> 136 IF such$=CHR$(l) OR such$=CHR$(30) THEN mi=mi- 
lrGOSUB 150 

<53> 137 IF such$=CHR$(6) OR such$=CHRS(31) THEN mi=mi+ 
1:GOSUB 150 

<69> 138 IF SUCh$=CHR$(13) THEN GOTO 140 

<19> 139 GOTO 135 

<77> 140 REM ->Sekunden 

<74> 141 PRINT FNpS(8,48),-loeschS;FNpS(8,55);invonS,-CHR 
S(94);invoffS 

<66> 142 such$=INKEY$:IF such$="" THEN GOTO 142 
<75> 143 IF SUCh$=CHR$(l) OR SUChS=CHR$(30) THEN se=se- 
1:GOSUB 153 

Listing: DATESET 


<11> 144 IF SUCh$=CHR$(6) OR suchS=CHRS(31) THEN se=se+ 
1:GOSUB 153 

<44> 145 IF SUch$=CHRS(13) THEN GOTO 157 
<74> 146 GOTO 141 

< 0> 147 IF St>23 THEN st=0 

< 4> 148 IF st<0 THEN st=23 

<31> 149 PRINT invonS;FNpS(7,40);USING"##";st:PRINT inv 
off$:RETURN 

< 1> 150 IF mi>59 THEN mi=0 
<13> 151 IF mi<0 THEN mi=59 

<15> 152 PRINT invonS;FNpS(7,47);USING"##";mi:PRINT inv 
offS:RETURN 

<56> 153 IF se>59 THEN se=0 
<66> 154 IF se<0 THEN se=59 

<45> 155 PRINT invonS;FNpS(7,54);USING"##se:PRINT inv 
off$:RETURN 
<42> 156 : 

<82> 157 REM *** Kontrolle *** 

<48> 158 : 

<21> 159 PRINT ClsS 

<14> 160 rahmen$="01,35,21,2":GOSUB 202 
<17> 161 PRINT invonS;FNpktS(2,36," KONTROLLE" 
);invoff$ 

<88> 162 rahmen$="05,35,25,3":GOSUB 202 
<13> 163 PRINT invonS;FNpktS(6,36," DATUM. : ");CHR$(25 
2);" ";invoffS;" PRINT USING"##";t;:PRINT ".";U 

SING"##";n;:PRINT".19";USING"##";j 
<82> 164 PRINT invonS;FNpktS(7,36," UHRZEIT: ");CHR$(25 
2);" ";invoffS;" ";:PRINT USING"##";st;:PRINT 
USING"##";mi;:PRINT ":";USING"##";se 
<97> 165 RESTORE 166:GOSUB 179 

<19> 166 DATA 3,36,11.25,Datum/Uhrzeit stellen - ENDE B 
ASIC,Datum/Uhrzeit stellen - ENDE CP/M,Einstellung 
wiederholen 

<34> 167 ON up GOTO 168,169,170 
<53> 168 GOSUB 172:END 
<11> 169 GOSUB 172:SYSTEM 
<19> 170 PRINT clsS:GOTO 30 
<31> 171 : 

<57> 172 REM *** Datum und Uhrzeit schreiben *** 

<37> 173 : 

<15> 174 GOSUB 205 
<12> 175 PRINT cl$;can$ 

<55> 176 POKE 64500!,tage MOD 256:POKE 64501!,INT(tage/ 
256) 

<83> 177 POKE 64502!,FNS(st):POKE 64503!,FNS(mi):POKE 6 
4504!,FNS(se) 

< 6> 178 RETURN 

<30> 179 REM ******* Routine für Wahlmenues 
<34> 180 ' 

<73> 181 READ menuepkte,txtlaenge,zeile,spalte: FOR x=l 
TO menuepkte:READ t$:ti$(x)=SPACES(txtlaenge):LSE 
T ti$(x)=" "+tS:NEXT 

<86> 182 PRINT FNpS(zeile,spalte)+CHRS(134)+STRINGS (txt 
laenge+8,138)+CHR$(140) 

<37> 183 PRINT FNpS(zeile+1,spalte)+CHRS(133)+FNpS(zeil 
e+1,spalte+txtlaenge+9)+CHRS(133) 

<24> 184 FOR x=l TO menuepkte:PRINT FNpS(zeile+l+x,spal 

te)+CHRS(133)" "FNi$(" "+ti$(x)+":")"- "+CHRS(l 

33):NEXT 

<67> 185 PRINT FNpS(zeile+l+x,spalte)+CHRS(133)+FNp$(ze 
ile+l+x,spalte+txtlaenge+9);CHR$(133) 

<13> 186 PRINT FNpS(zeile+2+x,spalte)+CHRS(131)+STRINGS 
(txtlaenge+8,138)+CHRS(137) 

<39> 187 up=zeile+2:PRINT caus$ 

<15> 188 spalte=spalte+txtlaenge+5 

<63> 189 '*** Blinkender Cursor/Tastenabfrage *** 

<52> 190 PRINT FNpS(up,spalte); 

<65> 191 PRINT FNi$(" "+CHRS(253)+" "):FOR n=0 TO 120:i 
$=INKEY$:IF i$<>"" THEN 192:ELSE NEXT:PRINT FNp$(u 
p,spalte)" "CHRS(253)" ":FOR n=0 TO 120:iS=INKEYS: 
IF 1$<>"" THEN 192:ELSE NEXT:GOTO 190 
<46> 192 PRINT FNpS(up,spalte)"... "; 

<58> 193 n=ASC(i$) 

<68> 194 IF n=30 AND up=zeile+menuepkte+l THEN up=zeile 
+ 2:GOTO 190:ELSE IF n=30 THEN up=up+l:GOTO 190 
<51> 195 IF n=31 AND up=zeile+2 THEN up=zeile+menuepkte 
+l:GOTO 190:ELSE IF n=31 THEN up=up-l:GOTO 190 
<70> 196 IF n=13 THEN PRINT FNpS(up,spalte+1)+CHRS(253) 
:up=up-zeile-l:PRINT causS;:RETURN ELSE 190 
<57> 197 ' 

<79> 198 REM ******* Routine für Umrahmungen ***** 

<63> 199 ' 

<90> 200 rahmen$="01,01,88,28":GOSUB 202:GOSUB 201 
<71> 201 RETURN 

<48> 202 FOR i=l TO 10 STEP 3:r(i)=VAL(MID$(rahmenS,i,2 
)):NEXT 

<28> 203 PRINT FNpktS(r(1),r(4),CHR$(134));:FOR i=l TO 
r(7)-l:PRINT CHRS(138);:NEXT:PRINT CHR$(140):FOR i 
=1 TO r(10)-1:PRINT FNpktS((r(1)+i),r(4),CHR$(133) 

);FNpktS(r(l)+i,r(4)+r(7),CHRS(133)):NEXT 
<84> 204 PRINT FNpktS(r(1)+r(10),r(4),CHRS(131));:FOR i 
=1 TO r(7)-l:PRINT CHR$(138);:NEXT:PRINT CHR$(137) 

;:RETURN 
<30> 205 : 

<19> 206 REM *** Geräusch *** 

<36> 207 : 

<57> 208 FOR sz=l TO 200:OUT 248,11:OUT 248,12:NEXT 
<95> 209 RETURN 


Listing: DATESET 
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HF-Tapete 

Ein Hilfsmittel für 
jeden Elektroniker 

Jeder Elektroniker kennt sie: die 
HF-Tapete. Sie klebt nicht in der 
Werkstatt oder im Wohnzimmer an 
der Wand, obgleich ihre sich kreu¬ 
zenden Linien schwarz, blau und 
rot oder auch nur schwarz auf wei¬ 
ßem Grund sehr dekorativ ausse- 
hen. Jedoch, wenn man intensiv die 
Linien verfolgt und Schnittpunkte 
sucht, kann der erste Eindruck sehr 
schnell verblassen. 

Diese Erfahrung war der Anstoß, das 
Hochfrequenz-Nomogramm, mit dem 
der Elektroniker Filter und Resonanz¬ 
kreise ermittelt, in ein BASIC-Pro- 
gramm zu fassen und die Berechnung 
dem Computer zu überlassen. Das Pro¬ 
gramm HFTAPETE.BAS, das mit ei¬ 


nem kleinen Vorspann cingelei- 
tet wird, endet zunächst beim 
Eingangsmenü, das mit dem 
Buchstaben “m“ von jedem Un¬ 
termenü immer wieder erreicht 
werden kann. Mit der Taste 
<EX1T> kann das Programm 
verlassen werden. Das Ein¬ 
gangsmenü läßt einem die Wahl 
zwischen einem Widerstands- 
Kapazitäts-Filter (RC), einem 
Widerstands-Induktivitäts-Filter 
(RL) und einem Resonanzkreis 
(LC). RC- und LC-Filter wer¬ 
den bezogen auf die 6-dB-Bandgrenze 
berechnet, wobei der Blindwiderstand 
so groß ist wie der ohmsche Wider¬ 
stand. Die Bandgrenze beim Resonanz¬ 
kreis ist erreicht, wenn der Spannungs¬ 
abfall am LC-Glied 3 Dezibel beträgt. 
Das Programm errechnet bei gegebe¬ 
nem Dämpfungswiderstand ebenfalls 
die Bandbreite. 

Die im Programm verwendeten mathe¬ 
matischen Formeln sind so ausgelegt, 
daß - die Kapazität in /xF - die Induk¬ 
tivität in MHz - der Widerstand in 


Ohm — die Frequenz in kHz miteinan¬ 
der korrespondieren. Das Programm 
läßt bei der Eingabe der Größen jedoch 
auch andere Einheiten zu, so daß der 
Nutzer selbst keine Umrechnungen 
vornehmen muß. Nach Eingabe der 
Wahl im Eingangsmenü springt das 
Programm jedesmal in ein Unterpro¬ 
gramm mit weiteren Wahlmöglichkei¬ 
ten. Diese Menüs sind selbsterklärend, 
so daß sie nicht weiter beschrieben 
werden müssen. 

(Peter Reiff/rs) 


LISTING >HFTAPETE<, REMARK = >'<. 


<28> 10 OPTION RON 

<92> 20 cls$=CHR$(27)+"H"+CHR$(27)+"E":PRINT cls$+CHR$( 
27)+"f"+CHRS(27)+"p" 

<32> 30 PRINT CHRS(27)+"Y"+CHR$(32)+CHR$(60);"»*******+ 
********************" 

<93> 40 PRINT CHR$ { 27 ) + "Y"+CHR$ (33) +-CHRS ( 60); "*. 

HF-Tapete. *" . 

<93> 50 PRINT CHR$(27)+"Y"+CHR$(34)+CHRS(60);"* Ein Hll 
fsmittel für jeden *" 

<46> 60 PRINT CHRS(27) + "Y"+CHR$(35)+CHR$(60);*. E 

lektroniker. *" 

< 6> 70 PRINT CHRS(27)+"Y"+CHR${36)+CHRS(60);"*- von 

Peter Reiff. *" 

<83> 80 PRINT CHRS(27)+"Y"+CHR$(37)+CHRS(60);"********* 
********************" 

<53> 90 FOR j=l TO 1000:NEXT j 

<34> 100 FOR i=255 TO 60 STEP -l:OUT 246,1 

<21> 110 FOR j=l TO 10:NEXT j:NEXT i 

< 93 > 120 PRINT clsS:FOR i=60 TO 0 STEP -l:OUT 246,i:NEX 

<54> 130 PRINT clsS+CHR$(27)+"e":PRINT " EINGANGS-MENÜ 
11 

< 9> 140 PRINT:PRINT "1: RC-Filter. EXIT: 


Programm verlassen" 

< 4> 150 PRINT:PRINT "2: RL-Filter. 

Eingangsmenü" 

< 4> 160 PRINT:PRINT "3: Resonanzkreis" 

<32> 170 ' 

<67> 180 PRINT:PRINT:PRINT "Menüwahl" 


<36> 190 ' 

<74> 200 A$=INKEY$ 

<45> 210 IF A$=CHR$(27) THEN GOTO 5340:’Taste EXIT 

<44> 220 IF AS=CHR$(49) THEN GOTO 270:’Taste "1" 

<67> 230 IF AS=CHRS(50) THEN GOTO 1280:'Taste "2" 

<92> 240 IF AS=CHR$(51) THEN GOTO 2290:'TaSte "3" 

<88> 250 IF A$=CHR$(109) THEN GOTO 130:'Taste "m" 

<15> 260 GOTO 200 
<98> 270 PRINT cls$ 

<16> 280 PRINT "Berechnung eines RC-Filters: Hochpaßban 
dgrenze bei 6 dB Spannungsabfall am Widerstand":PR 

Xnt ". Tiefpaßbandgrenz 

e bei 6 dB Spannungsabfall an der Kapazität":PRINT 


< 3> 290 PRINT:PRINT "1: Berechnung der Kapazität bei V 
orgabe von Bandgrenze und Widerstand" 

<70> 300 PRINT:PRINT "2: Berechnung der Bandgrenze bei 
Vorgabe von Kapazität und Widerstand" 

<77> 310 PRINT:PRINT "3: Berechnung des Widerstandes be 
i Vorgabe von Bandgrenze und Kapazität" 

<95> 320 PRINT:PRINT:PRINT "m: Eingangsmenü" 

<81> 330 A$=INKEY$ 


Listing: HF TAPETE 


<42> 
<85> 
< 7> 
<61> 
<63> 
<17> 
<62> 


<27> 
<7 6> 
< 6 > 
< 22 > 
<53> 
<27> 

< 6 > 
<30> 
< 15 > 
<51> 
<92> 
<60> 
<14> 
<24> 
< 0 > 
<26> 
< 8 > 


<34> 

<71> 

<92> 

<82> 

<80> 

<76> 

< 3> 

< 5> 
<1 3> 
<37> 
<69> 
< 68 > 


<48> 
< 22 > 
<1 3> 
< 88 > 
<59> 
<26> 

<26> 

<31> 

<16> 


340 IF AS=CHRS(49) THEN GOTO 390:'Taste "1" 

350 IF A$=CHR$(50) THEN GOTO 680:'Taste "2" 

360 IF A$=CHRS(51) THEN GOTO 970:'Taste "3" 

370 IF AS=CHR$(109) THEN GOTO 120:'Taste "m" 

380 GOTO 330 

390 'Berechnung der Kapazität 

400 INPUT "Frequenzeinheit. [Hz]=l, (KHz]=2, [MHz) 
=3... ";el:IF el>=l AND el<=3 THEN 420 ELSE GOSUB 
5330 

410 GOTO 400 

420 IF el=l THEN el$="Hz" 

430 IF el=2 THEN el$="kHz" 

440 IF el=3 THEN el$="MHz" 

450 INPUT "Frequenz... ";f:fl=f 

460 INPUT "Widerstandeinheit [Ohm]=l, [KOhm]=2... 

";e2:IF e2>=l AND e2<=2 THEN 480 ELSE GOSUB 5330 
470 GOTO 460 

480 IF e2=l THEN e2$="Ohm" 

490 IF e2=2 THEN e2$="KOhm" 

500 INPUT "Widerstand... ";R:R1=R 
510 IF el=l THEN 520 ELSE 530 
520 f=f/1000 

530 IF el=3 THEN 540 ELSE 550 
540 f=f*1000 

550 IF e2=l THEN 560 ELSE 570 
560 R=R/1000 

570 PRINT cls$:PRINT "RC-Filter:":PRINT:PRINT "Fre 

quenz. ";fl;. el$:PRINT "Widerstand- ";R1; 

. e 2 $ 

580 C=l/(2*3.1415927#*f*R) 

590 IF C<1 THEN 600 ELSE 630 
600 C=C*1000 

610 IF C<1 THEN 620 ELSE 640 
620 C=C*1000:GOTO 650 

630 PRINT:PRINT "Kapazität. ";C;" uF":GOTO 660 

640 PRINT:PRINT "Kapazität. ";C;" nF":GOTO 660 

650 PRINT:PRINT "Kapazität. ";C;" pF" 

660 GOTO 5300 
670 ' 

680 'Berechnung der Bandgrenze 

690 INPUT "Kapazitätseinheit [pF]=l, [nF]=2, [uF]= 
3.. ";el:IF el>=l AND el<=3 THEN 710 ELSE GOSUB 53 
30 

700 GOTO 690 

710 IF el=l THEN el$="pf" 

720 IF el=2 THEN el$="nF" 

730 IF el=3 THEN el$="uF" 

740 INPUT "Kapazität... ";C:C1=C 

750 INPUT "Widerstandseinheit [Ohm]=l, [KOhm)=2... 

";e2:IF e2>=l AND e2<=2 THEN 770 ELSE GOSUB 5330 
760 GOTO 750 

770 IF e2=l THEN e2$="Ohm" 

780 IF e2=2 THEN e2$="KOhm" 
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<71> 

<82> 

<23> 

<92> 

< 88 > 

<89> 

<74> 

< 66 > 


<98> 
<13> 
< 6 > 
<78> 
<90> 

< 9> 

<32> 

< 8 > 
<14> 
<38> 
<48> 
< 88 > 


<87> 

<84> 

<43> 

<28> 

<62> 

<93> 


<59> 
< 68 > 
<32> 
<95> 
<65> 
<41 > 
< 1 > 
<64> 

< 5> 
<73> 

< 6 > 
< 9> 
< 66 > 
<64> 


< 11 > 
<38> 
<98> 
<23> 
< 6 > 
<83> 

< 6 > 

<38> 

<97> 

<33> 

<40> 


<93> 

<46> 

< 13 > 

<23> 
< 6 > 
<70> 
<49> 
<78> 
<34> 
<14> 
<23> 
< 11 > 


<67> 

<37> 

<76> 

<64> 

<64> 

<14> 

<64> 
<97> 
<32> 
<96> 
<62> 
< 8 > 
<97> 
< 68 > 


790 INPUT "Widerstand... ";R:R1=R 
800 IF el=l THEN 810 ELSE 820 
810 C=C/10*6:GOTO 840 
820 IF el=2 THEN 830 ELSE 840 
830 C=C/10"3 

840 IF e2=l THEN 850 ELSE 860 
850 R=R/10*3 

860 PRINT cls$:PRINT "RC-Filter:":PRINT:PRINT "Kap 

azität. ";CI;. el$: PRINT "Widerstand_ ";Rl 

;. e2$ 

870 f=l/(2*3.1415927#*C*R) 

880 IF f<l THEN 890 ELSE 900 
890 f=f*10"3:GOTO 940 
900 IF f >=1000 THEN 910 ELSE 930 
910 f=f/10'3:GOTO 920 

920 PRINT:PRINT "Frequenz. ";f;" MHz":GOTO 95 

0 

930 PRINT:PRINT "Frequenz. ";f;" KHz":GOTO 95 

0 

940 PRlNTrPRINT "Frequenz. ";f;" Hz" 

950 GOTO 5300 
960 1 

970 'Berechnung des Widerstandes 

980 INPUT "Kapazitätseinheit [pF]=l, [nF]=2, [uF]= 
3... ";el:IF el>=l AND el<=3 THEN 1000 ELSE GOSUB 
5330 

990 GOTO 980 

1000 IF el=l THEN el$="pf" 

1010 IF el=2 THEN el$="nF" 

1020 IF el=3 THEN el$="uF" 

1030 INPUT "Kapazität... ";C:C1=C 
1040 INPUT "Frequenzeinheit. [Hz]=l, [kHz]=2, [MHz 
]=3... ";e2:IF e2>=l AND e2<=3 THEN 1060 ELSE GOSU 
B 5330 

1050 GOTO 1040 

1060 IF e2=l THEN e2$="Hz" 

1070 IF e2=2 THEN e2$="KHz" 

1080 IF e2=3 THEN e2$="MHz" 

1090 INPUT "Frequenz... ";f:fl=f 
1100 IF el=l THEN 1110 ELSE 1120 
1110 C=C/10 * 6:GOTO 1140 
1120 IF el=2 THEN 1130 ELSE 1140 
1130 C=C/1000 

1140 IF e2=l THEN 1150 ELSE 1160 
1150 f=f/1000 

1160 IF e2=3 THEN 1170 ELSE 1180 
1170 f=f*1000 

1180 PRINT clsS:PRINT "RC-FilterPRINT:PRINT "Ka 

pazität. ";C1;. el$:PRINT "Frequenz. ";fl 

;. e 2 $ 

1190 R=l/(2*3.1415927#*C*f) 

1200 IF R <1 THEN 1210 ELSE 1220 
1210 R=R*1000:GOTO 1260 
1220 IF R >=1000 THEN 1230 ELSE 1250 
1230 R=R/1000:GOTO 1240 

1240 PRINT:PRINT "Widerstand- ";R;" MOhm":GOTO 

1270 

1250 PRINT:PRINT "Widerstand- ";R;" KOhm":GOTO 

1270 

1260 PRINT:PRINT "Widerstand- ";R;" Ohm":GOTO 1 

270 

1270 GOTO 5300 
1280 PRINT clsS 

1290 PRINT "Berechnung eines RL-Filters:":PRINT:PR 
INT " Tiefpaßbandgrenze bei 6 dB Spannungsabfall a 
m Widerstand":PRINT " Hochpaßbandgrenze bei 6 dB S 
pannungsabfall an der Induktivität":PRINT:PRINT 
1300 PRINT:PRINT "1: Berechnung der Induktivität b 
ei Vorgabe von Bandgrenze und Widerstand" 

1310 PRINT:PRINT "2: Berechnung der Bandgrenze bei 
Vorgabe von Induktivität und Widerstand" 

1320 PRINT:PRINT "3: Berechnung des Widerstandes b 
ei Vorgabe von Bandgrenze und Induktivität" 

1330 PRINT:PRINT:PRINT "m: Eingangsmenü" 

1340 A$=INKEY$ 

1350 IF A$=CHR$(49) THEN GOTO 1400:'Taste "1" 

1360 IF A$=CHR$(50) THEN GOTO 1690:'Taste "2" 

1370 IF A$=CHR$(51) THEN GOTO 1980:'Taste "3" 

1380 IF A$=CHR$(109) THEN GOTO 120:'Taste "m" 

1390 GOTO 1340 

1400 'Berechnung der Induktivität 

1410 INPUT "Frequenzeinheit. [Hz]=l, [KHz]=2, [MHz 
]=3... ";el:IF el>=l AND el<=3 THEN 1430 ELSE GOSU 
B 5330 

1420 GOTO 1410 

1430 IF el=l THEN el$="Hz" 

1440 IF el=2 THEN el$="kHz" 

1450 IF el=3 THEN el$="MHz" 

1460 INPUT "Frequenz... ";f:fl=f 

1470 INPUT "Widerstandeinheit [ohmJ=l, [KOhm]=2... 

";e2:IF e2>=l AND e2<=2 THEN 1490 ELSE GOSUB 5330 
1480 GOTO 1470 
1490 IF e2=l THEN e2$="Ohm" 

1500 IF e2=2 THEN e2$="KOhm" 

1510 INPUT "Widerstand... ";R:R1=R 
1520 IF el=l THEN 1530 ELSE 1540 
1530 f=f/1000 

1540 IF el=3 THEN 1550 ELSE 1560 
1550 f=f*1000 



<94> 

<37> 

<87> 


<43> 

<54> 

<62> 

<51> 

<55> 

<80> 

<60> 

< 20 > 
< 6 > 
< 20 > 
< 6 > 
<15> 


<93> 

< 68 > 

<89> 

<45> 

<50> 

<85> 


<90> 
< 1 > 
<63> 
< 0 > 
<64> 
<76> 
< 0 > 
<37> 
<96> 
<37> 
<70> 


<4 2> 
<82> 
< 16 > 
<65> 
<23> 
<30> 

<52> 

< 0 > 
< 9> 
<2 3> 
<27> 
<69> 


< 20 > 
<52> 
<73> 
<29> 
< 34> 
< 15 > 


<87> 
<72> 
<36> 
< 0 > 
<41> 
<46> 
<35> 
<81> 
<95> 
<78> 
< 10 > 
< 14 > 
<70> 
<87> 


<26> 
<43> 
<45> 
<44> 
<52> 
<9 2> 

<15> 

<45> 

< 2 > 
<37> 
<17> 

<13> 


1560 IF e2=l THEN 1570 ELSE 1580 
1570 R=R/1000 

1580 PRINT clsS:PRINT "RL-Filter:":PRINT:PRINT "Fr 

equenz. ";fl;. el$:PRINT "Widerstand.... ";R1 

;. e 2 $ 

1590 L=R*10'3/(2*3.1415927#*f) 

1600 IF L<1 THEN 1610 ELSE 1620 
1610 L=L*1000:GOTO 1640 
1620 IF L>10"3 THEN 1630 ELSE 1650 
1630 L=L/10*3:GOTO 1660 

1640 PRINT:PRINT "Induktivität.. ";L;" uH":GOTO 16 
70 

1650 PRINT:PRINT "Induktivität.. ";L;" mH":GOTO 16 
70 

1660 PRINT:PRINT "Induktivität.. ";L;" Hy" 

1670 GOTO 5300 
1680 ' 

1690 'Berechnung der Bandgrenze 

1700 INPUT "Induktivitätseinheit [UH]=1, [mH]=2, [ 
Hy]=3. ";el:IF el>=l AND el<=3 THEN 1720 ELSE GOSU 
B 5330 

1710 GOTO 1700 

1720 IF el=l THEN el$="uH" 

1730 IF el=2 THEN el$="mH" 

1740 IF el=3 THEN el$="Hy" 

1750 INPUT "Induktivität... ";L:L1=L 

1760 INPUT "Widerstandseinheit (Ohm]=l, [KOhm]=2.. 

. ";e2:IF e2>=l AND e2<=2 THEN 1780 ELSE GOSUB 533 
0 

1770 GOTO 1760 

1780 IF e2=l THEN e2$="Ohm" 

1790 IF e2=2 THEN e2$="KOhm" 

1800 INPUT "Widerstand... ";R:Rl=R 

1810 IF el=l THEN 1820 ELSE 1830 

1820 L=L/10"3:GOTO 1850 

1830 IF el=3 THEN 1840 ELSE 1850 

1840 L=L*10‘3:GOTO 1850 

1850 IF e2=l THEN 1860 ELSE 1870 

1860 R=R/10"3 

1870 PRINT clS$:PRINT "RL-Filter:":PRINT:PRINT "In 

duktivität.. ";L1;. elS:PRINT "Widerstand_ ";R1 

;. e2S 

1880 f=R*10‘3/(2*3.1415927#*L) 

1890 IF f<l THEN 1900 ELSE 1910 

1900 f=f*10"3:GOTO 1950 

1910 IF f >=1000 THEN 1920 ELSE 1940 


1920 f=f/10"3:GOTO 1930 

1930 PRINT:PRINT "Frequenz. ";f;" MHz":GOTO 1 

960 

1940 PRINT:PRINT "Frequenz. ";f;" KHz":GOTO 1 

960 

1950 PRINT:PRINT "Frequenz. ";f;" Hz" 

1960 GOTO 5300 
1970 ' 


1980 'Berechnung des Widerstandes 

1990 INPUT "Induktivitätseinheit [uH]=l, [mH]=2, [ 

Hy]=3.. ";el:IF el>=l AND el<=3 THEN 2010 ELSE GOS 

UB 5330 

2000 GOTO 1990 

2010 IF el=l THEN el$="uH" 

2020 IF el=2 THEN el$="mH" 

2030 IF el=3 THEN el$="Hy" 

2040 INPUT "Induktivität... ";L:L1=L 
2050 INPUT "Frequenzeinheit. [HzJ=l, [KHz]=2, [MHz 
]=3... ";e2:IF e2>=l AND e2<=3 THEN 2070 ELSE GOSU 
B 5330 

2060 GOTO 2050 

2070 IF e2=l THEN e2$="Hz" 

2080 IF e2=2 THEN e2$="KHz" 

2090 IF e2=3 THEN e2$="MHz" 

2100 INPUT "Frequenz... ";f:fl=f 

2110 IF el=l THEN 2120 ELSE 2130 

2120 L=L/10‘3:GOTO 2150 

2130 IF el=3 THEN 2140 ELSE 2150 

2140 L=L*10’3:GOTO 2150 

2150 IF e2=l THEN 2160 ELSE 2170 

2160 f=f/1000 

2170 IF e2=3 THEN 2180 ELSE 2190 
2180 f=f*1000 

2190 PRINT cls$:PRINT "RL-Filter:PRINT:PRINT "In 

duktivität.. ";L1;. el$:PRINT "Frequenz. ";fl 

;. e 2 $ 

2200 R=(2*3.1415927#*L*f)/10"3 
2210 IF R <1 THEN 2220 ELSE 2230 
2220 R=R*1000:GOTO 2270 
2230 IF R >=1000 THEN 2240 ELSE 2260 
2240 R=R/1000:GOTO 2250 

2 250 PRINT:PRINT "Widerstand_ ";R;" MOhm":GOTO 

2280 

2260 PRINT:PRINT "Widerstand- ";R;" KOhm":GOTO 

2280 

2270 PRINT:PRINT "Widerstand.... ";R;" Ohm":GOTO 2 
280 

2280 GOTO 5300 
2290 PRINT cls$ 

2300 PRINT "Berechnung eines LC-Resonanzkreises: B 
andbreite bei 3 dB Spannungsabfall:PRINT:PRINT 
2310 PRINT:PRINT. "1: Berechnung der Mittenfrequen 

7 ." 
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<75> 2320 PRINT:PRINT "2: Parallel-Resonanzkreis" 

<76> 2330 PRINT:PRINT "3: Reihen-Resonanzkreis" 

<27> 2340 PRINT:PRINT:PRINT "m: Eingangsmenü" 

<10> 2350 A$=INKEY$ 

<78> 2360 IF A$=CHR$(49) THEN GOTO 4730:'Taste "1" 

<40> 2370 IF A$=CHR$(50) THEN GOTO 2410:'Taste "2" 

<17> 2380 IF A$=CHR$(31) THEN GOTO 3430:'Taste "3" 

<38> 2390 IF A$=CHR$(109) THEN GOTO 120:'Taste "m" 

<14> 2400 GOTO 2350 
<17> 2410 PRINT cls$ 

<90> 2420 PRINT "Berechnung eines Parallel-Resonanzkrei 
ses: Bandbreite bei 3 dB Spannungsabfall":PRINT:PR 
INT 

<61> 2430 PRINT:PRINT "1: Berechnung von Kapazität und 
Induktivität bei Vorgabe von":PRINT Bandbreite 
und Dämpfungswiderstand" 

<65> 2440 PRINT:PRINT "2: Berechnung von Bandbreite und 
Induktivität bei Vorgabe von":PRINT ".. Kapazität 
und Dämpfungswiderstand" 

<33> 2450 PRINT:PRINT "3: Berechnung von Dämpfungswider 
stand und Induktivität bei Vorgabe von":PRINT".. B 
andbreite und Kapazität" 

<35> 2460 PRINT:PRINT:PRINT "m: Eingangsmenü" 

<18> 2470 A$=INKEY$ 

<46> 2480 IF A$=CHR$(49) THEN GOTO 2530:'Taste "1" 

<57> 2490 IF A$=CHR$(50) THEN GOTO 2830:'Taste "2" 

<66> 2500 IF A$=CHR$(51) THEN GOTO 3120:'Taste "3" 

<18> 2510 IF A$=CHR$(109) THEN GOTO 120:'Taste "m" 

<60> 2520 GOTO 2470 

<73> 2530 'Berechnung der Kapazität 

<29> 2540 INPUT "Einheit der Bandbreite. [Hz]=l, [KHz]= 
2, [MHz]=3... ";el:IF el>=l AND el<=3 THEN 2560 EL 
SE GOSUB 5330 
<42> 2550 GOTO 2540 
<49> 2560 IF el=l THEN el$="Hz" 

<13> 2570 IF el=2 THEN el$="KHz" 

<76> 2580 IF el=3 THEN el$="MHz" 

<56> 2590 INPUT "Bandbreite... ";deltaf:deltafl=deltaf 
<41> 2600 INPUT "Einheit des Dämpfungswiderstandes [Ohm 
]=1, [KOhm]=2... ";e2:IF e2>=l AND e2<=2 THEN 2620 
ELSE GOSUB 5330 
<91> 2610 GOTO 2600 
<81> 2620 IF e2=l THEN e2$="Ohm" 

<44> 2630 IF e2=2 THEN e2$="KOhm" 

< 9> 2640 INPUT "Widerstand... ";R:R1=R 
<31> 2650 IF el=l THEN 2660 ELSE 2670 
<43> 2660 deltaf=deltaf/1000 

<66> 2670 IF el=3 THEN 2680 ELSE 2690 
<53> 2680 deltaf=deltaf*1000 
<88> 2690 IF e2=l THEN 2700 ELSE 2710 
<21> 2700 R=R/1000 

<31> 2710 PRINT cls$:PRINT "Parallel-Resonanzkreis:" :PR 

INT:PRINT "Bandbreite. ";deltafl;. el$:PRI 

NT "Dämpfungswiderstand ";R1;. e2$ 

< 2> 2720 C=l/(2*3.1415927#*deltaf*R) 

<26> 2730 C1=C 

<45> 2740 IF C<1 THEN 2750 ELSE 2780 
<91> 2750 C1=C*1000 

<24> 2760 IF C1<1 THEN GOTO 2770 ELSE 2790 
<43> 2770 C1=C*10‘6:GOTO 2800 

<84> 2780 PRINT:PRINT "Kapazität. ";CI;" uF":e 

4$="uF":GOTO 2810 

<73> 2790 PRINT:PRINT "Kapazität. ";C1;" nF":e 

4$="nF":GOTO 2810 

<51> 2800 PRINT:PRINT "Kapazität. ";C1;" pF":e 

4$="pF" 

<22> 2810 GOTO 5050 

< 7> 2820 ' 

<33> 2830 'Berechnung der Bandbreite 

<97> 2840 INPUT "Kapazitätseinheit [pF]=l, [nF]=2, [uF] 
=3.. ";e4:IF e4>=l AND e4<=3 THEN 2860 ELSE GOSUB 
5330 

<84> 2850 GOTO 2840 

< 3> 2860 IF e4=l THEN e4$="pF" 

<69> 2870 IF e4=2 THEN e4$="nF" 

<54> 2880 IF e4=3 THEN e4$="uF" 

<97> 2890 INPUT "Kapazität... ";C:C1=C 

<44> 2900 INPUT "Einheit des Dämpfungswiderstandes [Ohm 
]=1, [KOhm]=2... ";e2:IF e2>=l AND e2<=2 THEN 2920 
ELSE GOSUB 5330 
<34> 2910 GOTO 2900 
<87> 2920 IF e2=l THEN e2$="Ohm" 

<50> 2930 IF e2=2 THEN e2$="KOhm" 

<84> 2940 INPUT "Dämpfungswiderstand... ";R:R1=R 

<19> 2950 IF e4=l THEN 2960 ELSE 2970 

<34> 2960 C=C/10*6:GOTO 2990 

<42> 2970 IF e4=2 THEN 2980 ELSE 2990 

<34> 2980 C=C/10* 3 

<89> 2990 IF e2=l THEN 3000 ELSE 3010 

< 5> 3000 R=R/10*3 

<56> 3010 PRINT cls$:PRINT "Parallel-Resonanzkreis:":PR 

INT:PRINT "Kapazität. ";C1;. e4S:PRINT "D 

ämpfungswiderstand ";R1;. e2$ 

<81> 3020 deltaf=l/(2*3.1415927#*C*R) 

<75> 3030 IF deltaf<l THEN 3040 ELSE 3050 
<49> 3040 deltaf=deltaf*10*3:GOTO 3090 
<88> 3050 IF deltaf >=1000 THEN 3060 ELSE 3080 
<86> 3060 deltaf=deltaf/10‘3:GOTO 3070 

<61> 3070 PRINT:PRINT "Bandbreite. ";deltaf;" M 

Hz":deltafl=deltaf:el$="MHz":GOTO 3100 
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<12> 3080 PRINT:PRINT "Bandbreite. ";deltaf;" K 

Hz":deltafl=deltaf:el$="KHz":GOTO 3100 

<36> 3090 PRINT:PRINT "Bandbreite. ";deltaf;" H 

z":deltafl=deltaf:el$="Hz" 

< 6> 3100 GOTO 5050 
<90> 3110 ' 

<82> 3120 'Berechnung des Dämpfungswiderstandes 
<41> 3130 INPUT "Kapazitätseinheit [pF]=l, [nF]=2, [uF] 
=3... ";e4:IF e4>=l AND e4<=3 THEN 3150 ELSE GOSUB 
5330 

<81> 3140 GOTO 3130 

<86> 3150 IF e4=l THEN e4$="pF" 

<53> 3160 IF e4=2 THEN e4$="nF" 

<38> 3170 IF e4=3 THEN e4$="uF" 

<81> 3180 INPUT "Kapazität... ";C:C1=C 

<46> 3190 INPUT "Einheit der Bandbreite. [Hz]=l, (kHz]= 
2, [MHz]=3... ";el:IF el>=l AND el<=3 THEN 3210 EL 
SE GOSUB 5330 
<50> 3200 GOTO 3190 
<29> 3210 IF el=l THEN el$="Hz" 

<92> 3220 IF el = 2 THEN el$ = "KHz" 

<56> 3230 IF el=3 THEN el$="MHz" 

<36> 3240 INPUT "Bandbreite... ";deltaf:deltafl=deltaf 

< 1> 3250 IF e4=l THEN 3260 ELSE 3270 
<92> 3260 C=C/10'6:GOTO 3290 

<24> 3270 IF e4=2 THEN 3280 ELSE 3290 
<24> 3280 C=C/1000 

<18> 3290 IF el=l THEN 3300 ELSE 3310 
<20> 3300 deltaf=deltaf/1000 
<25> 3310 IF el=3 THEN 3320 ELSE 3330 
<30> 3320 deltaf=deltaf*1000 

<83> 3330 PRINT cls$:PRINT "Parallel-Resonanzkreis:":PR 

INT: PRINT "Kapazität. ";C1;. e4$:PRINT "B 

andbreite. ";deltafl;. el$ 

<96> 3340 R=l/(2*3.1415927#*C*deltaf) 

<67> 3350 IF R <1 THEN 3360 ELSE 3370 
<89> 3360 R=R*1000:GQTO 3410 
<97> 3370 IF R >=1000 THEN 3380 ELSE 3400 
<97> 3380 R=R/1000:GOTO 3390 

<93> 3390 PRINT:PRINT "Dämpfungswiderstand ";R;" MOhm": 
R1=R:e2$="MOhm":GOTO 3420 

<54> 3400 PRINT:PRINT "Dämpfungswiderstand ";R;" KOhm": 
Rl=R:e2S="KOhm":GOTO 3420 

<10> 3410 PRINT:PRINT "Dämpfungswiderstand ";R;" Ohm":R 
l=R:e2$="Ohm" 

<18> 3420 GOTO 5050 
<24> 3430 PRINT cls$ 

<10> 3440 PRINT "Berechnung eines Reihen-Resonanzkreise 
s: Bandbreite bei 3 dB Spannungsabfall":PRINT:PRIN 
T 

<21> 3450 PRINT:PRINT "1: Berechnung von Induktivität u 
nd Kapazität bei Vorgabe von":PRINT ".. Bandbreite 
und Dämpfungswiderstand" 

<25> 3460 PRINT:PRINT "2: Berechnung von Bandbreite und 
Kapazität bei Vorgabe von":PRINT ".. Induktivität 
und Dämpfungswiderstand" 

<68> 3470 PRINT:PRINT "3: Berechnung des Dämpfungswider 
Standes und Kapazität bei Vorgabe von":PRINT ".. B 
andbreite und Induktivität" 

<42> 3480 PRINT:PRINT:PRINT "m: Eingangsmenü" 

<25> 3490 AS=INKEY$ 

<23> 3500 IF A$=CHRS(49) THEN GOTO 3550:'Taste "1" 

<34> 3510 IF A$=CHR$(50) THEN GOTO 3850:'Taste "2" 

<71> 3520 IF A$=CHR$(51) THEN GOTO 4140:'Taste "3" 

<25> 3530 IF A$=CHR$(109) THEN GOTO 120:'Taste "m" 

< 5> 3540 GOTO 3490 

<42> 3550 'Berechnung der Induktivität 

<25> 3560 INPUT "Einheit der Bandbreite. [Hz]=l, [KHz]= 
2, [MHz]=3.. . ";el:IF el>=l AND el<=3 THEN 3580 EL 
SE GOSUB 5330 
<86> 3570 GOTO 3560 
<56> 3580 IF el=l THEN el$="Hz" 

<20> 3590 IF el=2 THEN el$="KHz" 

<55> 3600 IF el=3 THEN el$="MHz" 

<35> 3610 INPUT "Bandbreite... ";deltaf:deltafl=deltaf 
<63> 3620 INPUT "Einheit des Dämpfungswiderstandes. [Oh 
m]=l, [KOhm] = 2 . . . ";e?.:IF e2>=l AND e2<=2 THEN 364 
0 ELSE GOSUB 5330 
<36> 3630 GOTO 3620 
<88> 3640 IF e2=l THEN e2$="Ohm" 

<51> 3650 IF e2=2 THEN e2$="KOhm" 

<85> 3660 INPUT "Dämpfungswiderstand... ";R:R1=R 

<91> 3670 IF el=l THEN 3680 ELSE 3690 

<50> 3680 deltaf=deltaf/1000 

<52> 3690 IF el=3 THEN 3700 ELSE 3710 

<32> 3700 deltaf=deltaf*1000 

<21> 3710 IF e2=l THEN 3720 ELSE 3730 

<28> 3720 R=R/1000 

<29> 3730 PRINT cls$:PRINT "Reihen-Resonanzkreis:":PRIN 

T:PRINT "Bandbreite. ";deltafl;. el$:PRINT 

"Dämpfungswiderstand ";R1;. e2$ 

<74> 3740 L=R*(10“3)/(2*3.1415927#*deltaf) 

<69> 3750 L1=L 

<21> 3760 IF L<1 THEN 3770 ELSE 3780 
<13> 3770 LI=L*1000:GOTO 3800 
<71> 3780 IF L>10"3 THEN 3790 ELSE 3810 
<62> 3790 L1=L/10"3:GOTO 3820 

<73> 3800 PRINT:PRINT "Induktivität. ";L1;" uH":e 

5$="uH":GOTO 3830 

<60> 3810 PRINT:PRINT "Induktivität. ";L1;" mH":e 

5$="mH":GOTO 3830 
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<87> 3820 PRINTrPRINT "Induktivität. ";L1;" Hy":e 

5$="Hy" 

<79> 3830 GOTO 4460 
<14> 3840 ' 

<40> 3850 'Berechnung der Bandbreite 

<69> 3860 INPUT "Induktivitätseinheit [uH]=l, [mH]=2, [ 
Hy]=3. ";e5:IF e5>=l AND e5<=3 THEN 3880 ELSE GOSU 
B 5330 

<29> 3870 GOTO 3860 

<12> 3880 IF e5=l THEN e5$="uH" 

<33> 3890 IF e5=2 THEN e5$="mH" 

<60> 3900 IF e5=3 THEN e5$="Hy" 

<44> 3910 INPUT "Induktivität... ";L:L1=L 
<49> 3920 INPUT "Einheit des Dämpfungswiderstandes [Ohm 
]=1, [KOhm]=2... ";e2:IF e2>=l AND e2<=2 THEN 3940 
ELSE GOSUB 5330 
<78> 3930 GOTO 3920 
<94> 3940 IF e2=l THEN e2$="Ohm" 

<57> 3950 IF e2=2 THEN e2$="KOhm" 

<91> 3960 INPUT "Dämpfungswiderstand... ";R:Rl=R 
<89> 3970 IF e5=l THEN 3980 ELSE 3990 

< 1> 3980 L=L/10*3:GOTO 4010 

<93> 3990 IF e5=3 THEN 4000 ELSE 4010 
<75> 4000 L=L*10"3 

< 3> 4010 IF e2=l THEN 4020 ELSE 4030 
<12> 4020 R=R/10’3 

<75> 4030 PRINT cls$:PRINT "Reihen-ResonanzkreisPRIN 

T:PRINT "Induktivität. ";L1;. e5$:PRINT "Däm 

pfungswiderstand ";R1;. e2$ 

<33> 4040 deltaf=R*10"3/(2*3.1415927#*L) 

<60> 4050 IF deltaf<l THEN 4060 ELSE 4070 
<59> 4060 deltaf=deltaf*10‘3:GOTO 4110 
<39> 4070 IF deltaf >=1000 THEN 4080 ELSE 4100 
<88> 4080 deltaf=deltaf/10‘3:GOTO 4090 

<30> 4090 PRINTrPRINT "Bandbreite. ";deltaf;" M 

Hz"rdeltafl=deltaf:el$="MHz"rGOTO 4120 

<52> 4100 PRINTrPRINT "Bandbreite. ";deltaf;" K 

Hz"rdeltafl=deltaf:el$="KHz"rGOTO 4120 

<15> 4110 PRINTrPRINT "Bandbreite. ";deltaf;" H 

z"rdeltafl=deltafrel$="Hz" 

<63> 4120 GOTO 4460 
<97> 4130 ' 

<89> 4140 'Berechnung des Dämpfungswiderstandes 
<97> 4150 INPUT "Induktivitätseinheit [uH]=l, [mH]=2, [ 
Hy] = 3.. ";e5 rIF e5> = l AND e5<=3 THEN 4170 ELSE GOS 
UB 5330 

<26> 4160 GOTO 4150 

<95> 4170 IF e5=l THEN e5$="uH" 

<17> 4180 IF e5=2 THEN e5S="mH" 

<72> 4190 IF e5=3 THEN e5$="Hy" 

<28> 4200 INPUT "Induktivität... ";L:L1=L 
<27> 4210 INPUT "Einheit der Bandbreite. [Hz]=l, [KHz]= 
2, [MHz]=3... ";elrIF el>=l AND el<=3 THEN 4230 EL 
SE GOSUB 5330 
<75> 4220 GOTO 4210 
<36> 4230 IF el=l THEN el$="Hz" 

< 0> 4240 IF el=2 THEN el$="KHz" 

<63> 4250 IF el=3 THEN el$="MHz" 

<43> 4260 INPUT "Bandbreite... ";deltafrdeltafl=deltaf 
<71> 4270 IF e5=l THEN 4280 ELSE 4290 
<49> 4280 L=L/10 * 3 

<32> 4290 IF e5=?3 THEN 4300 ELSE 4310 
<81> 4300 L=L*10 * 3 

<50> 4310 IF el=l THEN 4320 ELSE 4330 
<27> 4320 deltaf=deltaf/1000 
<85> 4330 IF el=3 THEN 4340 ELSE 4350 
<37> 4340 deltaf=deltaf*1000 

<50> 4350 PRINT cls$:PRINT "Reihen-Resonanzkreisr"rPRIN 

T:PRINT "Induktivität. ";L1;. e5SrPRINT "Ban 

dbreite. ";deltafl;. el$ 

<48> 4360 R=(2*3.1415927 #*L*deltaf)/10 * 3 
<28> 4370 IF R <1 THEN 4380 ELSE 4390 
<61> 4380 R=R*1000 rGOTO 4430 
<54> 4390 IF R >=1000 THEN 4400 ELSE 4420 
<40> 4400 R=R/1000:GOTO 4410 

<94> 4410 PRINTrPRINT "Dämpfungswiderstand ";R;" MOhm"r 
Rl=Rre2S="MOhm"rGOTO 4440 

<83> 4420 PRINTrPRINT "Dämpfungswiderstand ";R;" KOhm"r 
Rl=Rre2$="KOhm"rGOTO 4440 

<63> 4430 PRINTrPRINT "Dämpfungswiderstand ";R;" Ohm"rR 
l=Rre2$="Ohm"rGOTO 4440 
<75> 4440 GOTO 4460 
<10> 4450 ' 

<82> 4460 'Berechnung der Kapazität 

<45> 4470 INPUT "Frequenzeinheit, der Mittenfrequenz [H 
z] = l, [KHz]=2, [MHz]=3... ";e3rIF e3>=l AND e3<=3 
THEN 4490 ELSE GOSUB 5330 

< 1> 4480 GOTO 4470 

<19> 4490 IF e3=l THEN e3$="Hz" 

<54> 4500 IF e3=2 THEN e3$="KHz" 

<18> 4510 IF e3=3 THEN e3$="MHz" 

<40> 4520 INPUT "Mittenfrequenz... ";frfl=f 

< 6> 4530 ' 

< 9> 4540 ' 

<12> 4550 ' 

<53> 4560 IF e3=l THEN 4570 ELSE 4580 
<23> 4570 f=f/1000 

< 6> 4580 IF e3=3 THEN 4590 ELSE 4600 


";frfl=f 


<83> 4590 f=f*1000 
<98> 4600 ' 

< 2> 4610 ' 

<56> 4620 PRINT cls$rPRINT "Reihen-Resonanzkreisr"rPRIN 

Tr PRINT "Bandbreite. ";deltafl;. el$r PRINT 

"Dämpfungswiderstand ";R1;. e2$:PRINT:PRINT "Indu 

ktivität. ";LI;. e5$:PRINT:PRINT "Mittenfreq 

uenz. ";fl;. e3$ 

<13> 4630 C=10*3/(4*3.1415927#"2*L*f*2) 

<89> 4640 IF C<1 THEN 4650 ELSE 4680 
<78> 4650 C=C*1000 

<67> 4660 IF C<1 THEN GOTO 4670 ELSE 4690 
<49> 4670 C=C*1000rGOTO 4700 

<10> 4680 PRINTrPRINT "Kapazität. ";C;" uF":GO 

TO 4710 

<94> 4690 PRINTrPRINT "Kapazität. "; c; " nF":GO 

TO 4710 

<27> 4700 PRINTrPRINT "Kapazität. ";C;" pF" 

<92> 4710 GOTO 5300 

< 7> 4720 ' 

<35> 4730 'Berechnung der Mittenfrequenz 
<82> 4740 INPUT "Kapazitätseinheit [pF]=l, [nF]=2, [uF] 
=3.. ";e4:IF e4>=l AND e4<=3 THEN 4760 ELSE GOSUB 
5330 

<94> 4750 GOTO 4740 

< 3> 4760 IF e4=l THEN e4$="DF" 

<69> 4770 IF e4=2 THEN e4$="nF" 

<54> 4780 IF e4=3 THEN e4$="uF" 

<97> 4790 INPUT "Kapazität... ";C:C1=C 
<88> 4800 INPUT "Induktivitätseinheit [uH]=l, [mH]=2, [ 
Hy]=3... ";e5:IF e5>=l AND e5<=3 THEN 4820 ELSE GO 
SUB 5330 

<44> 4810 GOTO 4800 

<94> 4820 IF e5=l THEN e5$="uH" 

<16> 4830 IF e5=2 THEN e5$="mH" 

<71> 4840 IF e5=3 THEN e5$="Hy" 

<55> 4850 INPUT "Induktivität... ";L:L1=L 
<21> 4860 IF e4=l THEN 4870 ELSE 4880 
<77> 4870 C=C/10‘6rGOTO 4900 
<61> 4880 IF e4=2 THEN 4890 ELSE 4900 
<37> 4890 C=C/10*3 

<50> 4900 IF e5=l THEN 4910 ELSE 4920 
<42> 4910 L=L/10"3 

<85> 4920 IF e5=3 THEN 4930 ELSE 4940 

< 3> 4930 L=L*10"3 

<84> 4940 PRINT cls$:PRINT "ResonanzkreisPRINT:PRINT 

"Kapazität. ";CI;. e4$: PRINT "Induktivit 

at. " ;Ll;. e5S 

< 9> 4950 f=(10/(2*3.1415927#))*SQR(10/(L*C)) 

<71> 4960 IF f<l THEN 4970 ELSE 4980 

<63> 4970 f=f*10‘3:GOTO 5020 

<54> 4980 IF f >=1000 THEN 4990 ELSE 5010 

<70> 4990 f=f/10"3 rGOTO 5000 

<56> 5000 PRINTrPRINT "Mittenfrequenz. ";fr" MHz":G 

OTO 5030 

<68> 5010 PRINTrPRINT "Mittenfrequenz. ";f;" KHz":G 

OTO 5030 

<11> 5020 PRINTrPRINT "Mittenfrequenz. ";f;" Hz" 

<85> 5030 GOTO 5300 

< 0> 5040 ' 

<34> 5050 'Berechnung der Induktivität 
<80> 5060 INPUT "Frequenzeinheit der Mittenfrequenz. [H 
Z]=l, [KHz]=2, [MHz]=3... ";e3:IF e3>=l AND e3<=3 
THEN 5080 ELSE GOSUB 5330 
<40> 5070 GOTO 5060 

< 9> 5080 IF e3=l THEN e3$="Hz" 

<72> 5090 IF e3=2 THEN e3$="KHz" 

< 8> 5100 IF e3=3 THEN e3S="MHz" 

<30> 5110 INPUT "Mittenfrequenz... ";f:fi=f 
<95> 5120 ' 

<98> 5130 ' 

< 2> 5140 ' 

<37> 5150 IF e3=l THEN 5160 ELSE 5170 
<13> 5160 f=f/1000 

<72> 5170 IF e3=3 THEN 5180 ELSE 5190 
<73> 5180 f=f*1000 

<62> 5190 PRINT cls$:PRINT "Parallel-Resonanzkreis: " :PR 

INT: PRINT "Bandbreite. ";deltafl;. el$:PRI 

NT "Dämpfungswiderstand ";R1;. e2$:PRINT:PRINT "Ka 

pazität. ";C1;. e4$:PRINT:PRINT "Mittenfr 

equenz. ";fl;. e3$ 

<91> 5200 ' 

<67> 5210 L=10 3/(4*(3.1415927#"2)*C*(f’2)) 

<49> 5220 IF L<1 THEN 5230 ELSE 5240 

< 5> 5230 L=L*1000rGOTO 5260 

<58> 5240 IF L>10‘3 THEN 5250 ELSE 5270 
<97> 5250 L=L/10“3rGOTO 5280 

<71> 5260 PRINTrPRINT "Induktivität. ";L;" uH":GO 

TO 5290 

<11> 5270 PRINTrPRINT "Induktivität. ";L;" mH":GO 

TO 5290 

<46> 5280 PRINTrPRINT "Induktivität. ";L;" Hy" 

< 8> 5290 GOTO 5300 

<35> 5300 PRINTrPRINT "Weiter mit irgendeiner Taste" 

<57> 5310 A$=INKEY$:IF A$="" THEN 5310 
<95> 5320 PRINT A$rGOTO 130 
<63> 5330 PRINT "Falsche Eingabe":RETURN 
<12> 5340 PRINT cls$+CHR$(27)+"q":SYSTEM 


Listing: HF TAPETE 
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Dolmetscher II 

CP/M wird eingedeutscht 

Nachdem in der PCI 8/9’90 der Artikel “Dolmetscher“ eine Eindeutschung 
des CP/M-Betriebssystems anbot, können wir Ihnen heute mehrere BASIC- 
Programme vorstellen, die sich speziell der CP/M-Programme aus dem 
Lieferumfang des PCW 8256/8512 annehmen. 


Mit diesen steht Ihnen nach der Bear¬ 
beitung Ihrer Systemprogramme ein 
Betriebssystem zur Verfügung, daß die 
Fehlermeldungen nicht in Englisch, 
sondern vollkommen in Deutsch auf 
dem angemeldeten Ausgabegerät (Bild¬ 
schirm, Drucker) ausgibt. 

Folgende Programme werden über¬ 
setzt: SID.COM / PIP.COM / TYPE 
.COM / BASIC.COM / RENAME.COM 
/ ERASE.COM / SUBMIT.COM / 
SHOW.COM / DIR.COM. Zu jedem der 
hier aufgelisteten Programme finden 
Sie namensgleiche BASIC-Dateien, 
denen sinngemäß die Endung .BAS an¬ 
gefügt ist. 

Die insgesamt neun Dateien werden 
wie folgt übersetzt: 

• Die Original-Systemprogramme so¬ 
wie die entsprechenden BASIC-Pro- 
gramme mittels PIP oder NSWEEP auf 
das Speicherlaufwerk M: kopieren. 


• Das Programm SID.BAS entweder 
mit A >BASIC <name> von CP/M 
aus oder RUN“<name> direkt aus 
Basic laden und starten. 

• Den auf dem Bildschirm erscheinen¬ 
den Befehlen Folge leisten. Die ande¬ 
ren Patchprogramme werden automa¬ 
tisch nachgeladen und gestartet. 

Zu guter Letzt müssen die Systempro¬ 
gramme wieder auf Ihre Kopie der Ori¬ 
ginaldiskette zurückkopiert werden. 

Achtung! 

O Zum Erstellen Ihrer deutschen 
CP/M-Version sollten Sie lediglich mit 
Kopien Ihrer Originalsoftware arbei¬ 
ten, da eventuelle Beschädigungen auf 
den Originaldisketten fatale Folgen für 
Sie haben könnten. 

O Da bei der Übersetzung der englisch¬ 
sprachigen Fehlermeldungen nicht im¬ 
mer genügend Platz für das deutsche 


Äquivalent war, mußten teilweise Ab¬ 
kürzungen benutzt werden. 

O Wie es für den PCW mehrere CP/M- 
Versionen gibt (J12GCPM3.EMS / 
J 14GCPM3.EMS), gibt es auch unter¬ 
schiedliche Systemprogramme, die 
sich in Umfang und Aufbau — wenn 
auch nur gering — unterscheiden. So¬ 
mit kann eine Übersetzung bei Ihnen 
nicht möglich sein, wenn Sie eine ande¬ 
re CP/M-Version als der Autor des Ar¬ 
tikels Ihr eigen nennen. 

Es liegt dann also nicht an den Pro¬ 
grammen, sondern an Ihrer CP/M- 
Version, wenn die Übersetzung nicht 
durchgeführt werden kann. Sollten Sie 
die Programme per Hand abtippen und 
nicht auf unsere diesen Monat wirklich 
prall gefüllte DATABOX zurückgrei¬ 
fen wollen, so tippen Sie zuerst das 
Programm SID.BAS ab, und sehen Sie 
nach, ob der Patch ordnungsgemäß 
durchgeführt wird. Damit sparen Sie 
sich die Abtipparbeit bei den Folge- 
lislings, wenn der Patch nicht auf Ihr 
System abgestimmt sein sollte. 

(Hans-Joachim Steller/rs) 


Die in diesem Artikel vorgestellten Programme stellen 
einen Eingriff in Ihre Systemsoftware dar. Ftir even¬ 
tuelle Schaden, die durch Nutzung dieser Software ent¬ 
stehen könnten, übernehmen weder der Autor noch der 
Verlag irgendeine Haftung. 


LISTING >SID<, REMARK = >'<. 

< 1 > 10 ' **************************************** 


< 2 > 20 ' *. * 

< 3> 30 1 *. SID.BAS. -. Patchprogramm.... *. 

< 4> 40 1 *. * 

< 5> 50 ' *. Hans-Joachim Steller/90. * 


< 6> 60 ' **************************************** 

< 7> 70 ’ 

<98> 80 esc$=CHR$(27) 

<92> 90 cls$=esc$+"E"+esc$+"H" 

<82> 100 invan$=esc$+"p":invaus$=esc$+"a" 

<25> 110 PRINT invan$:PRINT:PRINT 

<55> 120 PRINT:PRINT ". SID.COM wird geändert.. 

tf 

<38> 130’PRINT:PRINT "- — Bitte eine Taste drücken 

! — ... " 

<34> 140 PRINT invausS 
<79> 150 t$=INPUT$(1) 

< 4> 160 OPEN " R " , # 1, " SID.COM",1 
<37> 170 FIELD #1,1 AS byte$ 

< 3> 180 READ adr$,zahl 

<24> 190 IF adr$="ENDE" THEN 270 
<72> 200 Start=VAL("&H"+adr$)-&HFF 
<41> 210 FOR i=start TO start+zahl-1 
<44> 220 READ aenderS 

<32> 230 LSET byte$=CHR$(VAL("&H"+aender$)) 

<76> 240 PUT #1,i 
<45> 250 NEXT 
<93> 260 GOTO 180 
<91> 270 CLOSE 
<42> 280 PRINT invanS 

<74> 290 PRINT "-" 

<32> 300 PRINT CHR$(7);".. Änderungen durchgeführt.... 

<88> 310 PRINT "-PRINT 

<32> 320 PRINT invausS 

< 0> 330 CHAIN "PIP.BAS ", 7 0,ALL 

<33> 340 END 

<29> 350 DATA 1BB9,18,53,7B,74,7A,65,20,7D,62,65,72,6E, 
6F,6D,6D,65,6E,2E,20 

< 2 > 360 DATA ENDE,00 

<34> 370 ' 

<18> 380 'SID.BAS 

Listing: DOLMETSCHER_ 


LISTING >PIP<, REMARK = >'<. 


< 1 > 
< 2 > 

< 3> 

< 4> 

< 5> 

< 6 > 

< 7> 
<98> 
<92> 
<82> 
<25> 
<34> 

<38> 

<34> 
<7 9> 
<91> 
<37> 

< 3> 
<24> 
<72> 
<41> 
•?44> 
<32> 
<76> 
<45> 
<9 3> 
<91> 
<42> 
<74> 
<32> 

< 88 > 
<32> 
< 13 > 
<33> 
<37> 


10 ' **************************************** 

20 ' *. * 

30 ' *. PIP.BAS. -. Patchprogramm.... *. 

40 1 *. * 

50 ' *. Hans-Joachim Steller/90. * 

60 ' **************************************** 

70 ' 

80 esc$=CHR$(27) 

90 cls$=esc$+"E"+esc$+"H" 

100 invan$=esc$+"p":invaus$=esc$+"q" 

110 PRINT invanS:PRINT:PRINT 

120 PRINT:PRINT ". PIP.COM wird geändert.. 


130 PRINT:PRINT ".... — Bitte eine Taste drücken 
1 —... " 

140 PRINT invausS 
150 t$=INPUT$(l) 

160 OPEN "R",#1,"PIP.COM",1 
170 FIELD #1,1 AS byte$ 

180 READ adr$,zahl 
190 IF adr$="ENDE" THEN 270 
200 start=VAL("&H"+adr$)-&HFF 
210 FOR i=start TO start+zahl-1 
220 READ aenderS 

230 LSET byte$=CHR$(VAL("6H"+aender$)) 

240 PUT #1,i 
250 NEXT 
260 GOTO 180 
270 CLOSE 
280 PRINT invanS 

290 PRINT "-" 

300 PRINT CHRS(7);".. Änderungen durchgeführt.... 

n 


310 PRINT "---" : PRINT 

320 PRINT invausS 

330 CHAIN "TYPE.BAS",70,ALL 

340 END 

350 DATA 0220,47,44,69,73,6b,4c,65,73,65,6e,24,53, 
63,68,72,65,69,62,65,6e,2e,24,50,72,7d,66,65,6e,24 
,55,6e,67,7d,6c,74,69,67,65,73,20,5a,69,65,6c,2e,2 
0 , 20,20 


Listing: DOLMETSCHER 
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<61> 380 DATA 0234,37,20,40,70,73,63,68,65,66,20,28,48, 
2f,46,29,3f,24,46,45,48,4c,45,52,3a,20,44,61,74,65 
, 69,66,65,68,6c,65,72,2e,20 

<74> 390 DATA 026E,16,4e,61,6d,65,6e,20,6e,65,75,20,65, 
69,6e,67, 2 e,3a 

<89> 400 DATA 0281,36,46,45,48,4C,45,52,3a,20,46,61,6c, 
73,63,68,65,20,44,61,74,65,69,61,6e,67,61,62,65,2e 
, 20 , 20 , 20 , 20 , 20 , 20 , 20,20 

<91> 410 DATA 02A8,16,41,6c,74,65,6e,20,4e,61,6d,65,6e, 
20,65,69,6e,67 

<94> 420 DATA ENDE,00 

<27> 430 ' 

<80> 440 'RENAME.BAS 


LISTING >ERASE<, REMARK 


> ' < . 


< 1> 10 ' **************************************** 

< 2> 20 ' *. * 

< 3> 30 ' *. ERASE.BAS. Patchprogramm.... *. 

< 4> 40 ' *. * 

< 5> 50 ' *. Hans-Joachim Steller/90. * 

< 6> 60 ' **************************************** 

< 7> 70 ' 

<98> 80 esc$=CHR$(27) 

<92> 90 cls$=esc$+"E"+esc$+"H" 

<82> 100 invan$=esc$+"p":invaus$=escS+"q" 

<25> 110 PRINT invanS:PRINT:PRINT 

<96> 120 PRINT:PRINT ". ERASE.COM wird geändert 

<82> 130 PRINT:PRINT ". — Bitte eine Taste drücken 

! — . " 

<34> 140 PRINT invausS 
<79> 150 t$=INPUT$(l) 

<55> 160 OPEN "R",#1,"ERASE.COM",1 
<37> 170 FIELD #1,1 AS byteS 

< 3> 180 READ adr$,zahl 

<24> 190 IF adr$="ENDE" THEN 270 
<72> 200 Start=VAL("&H"+adr$)-&HFF 
<41> 210 FOR i=start TO start+zahl-1 
<44> 220 READ aender$ 

<32> 230 LSET byte$=CHR$(VAL("&H"+aender$)) 

<76> 240 PUT #1, i 
<45> 250 NEXT 
<93> 260 GOTO 180 
<91> 270 CLOSE 

<42> 280 PRINT invanS 

<74> 290 PRINT "-” 

<32> 300 PRINT CHR$(7);".. Änderungen durchgeführt_ 

<88> 310 PRINT "-": PRINT 

<32> 320 PRINT invausS 

<12> 330 CHAIN "SUBMIT.BAS",70,ALL 

<33> 340 END 

<61> 350 DATA 01A2 ,16,41,62,62,72,75,63,68,20,6d,69,74, 
20,53,54,4f,50 

<46> 360 DATA 01C4,06,4c,57,20,3a,20,20 
<31> 370 DATA 01CB,09,4e,75,72,4c,65,73,62,61,72 
<69> 380 DATA 0212,27,46,45,48,4c,45,52,3a,20,54,72,65, 
6e,6e,7a,65,69,63,68,65,6e,20,66,65,68,6C,74,20 
<79> 390 DATA 0230,32,20,20,20,20,20,20,20,55,6e,67,7d, 
6c,74,69,67,65,20,4f,70,74,69,6f,6e,20,20,20,20,24 
,46,61,68,65 

<58> 400 DATA 0266,16,44,61,74,65,69,6e,61,6d,65,20,65, 
69,6e,67,65,62 

< 7> 410 DATA 027A,25,46,45,48,4c,45,52,3a,20,55,6e,7a, 

75,6c,2e,20,44,61,74,65,69,6e,61,6d,65,20 
<92> 420 DATA 0294,36,4c,7c,73,63,68,65,6e,20,61,6c,6c, 
65,72,20,4e,75,74,7a,65,72,64,61,74,65,69,65,6e,20 
,28,4a,2f,4e,29,20,20,20 
<61> 430 DATA 02B9,08,3f,20,44,61,74,65,69,20 
<53> 440 DATA 02C2,08,20,28,4a,2f,4e,29,3f,20 
<85> 450 DATA 02CD,18,2a,2a,41,62,62,72,75,63,68,20,6d, 
69,74,20,53,54,4f,50 
<52> 460 DATA ENDE,00 
<35> 470 ' 

<50> 480 'ERASE.BAS 


LISTING >SUBMIT<, REMARK = >'<. 


< 1 > 
< 2 > 

< 3> 

< 4> 

< 5> 

< 6 > 

< 7> 
<98> 
<92> 
<82> 
<25> 

< 38> 


10 1 **************************************** 

20 ' *. * 

30 1 *-SUBMIT.BAS. -. Patchprogramm- *. 

40 ' *. * 

50 1 *. Hans-Joachim steller/90. * 

60 ' **************************************** 

70 ' 

80 esc$=CHR$(27) 

90 cls$=esc$+"E"+esc$+"H" 

100 invan$=esc$+"p":invaus$=esc$+"q" 

110 PRINT invanS:PRINT:PRINT 

120 PRINT:PRINT ". SUBMIT.COM wird geänder 

t. " 


Listing: DOLMETSCHER 


<82> 

<34> 
<79> 
< 1 > 
<37> 
< 3> 
<24> 
<72> 
<41> 
<44> 
<32> 
<76> 
<45> 
<9 3> 
<91> 
<42> 
<74> 
<32> 


130 PRINT:PRINT ". — Bitte eine Taste drücken 

! — . " 

140 PRINT invausS 
150 t$=INPUT$(1) 

160 OPEN "R",#1,"SUBMIT.COM",1 

170 FIELD #1,1 AS byteS 

180 READ adr$,zahl 

190 IF adrS="ENDE" THEN 270 

200 start=VAL("&H"+adrS)-&HFF 

210 FOR i=start TO start+zahl-1 

220 READ aenderS 

230 LSET byte$=CHR$(VAL("&H"+aender$)) 

240 PUT #1,i 
250 NEXT 
260 GOTO 180 
270 CLOSE 
280 PRINT invanS 

290 PRINT "-" 

300 PRINT CHR$(7);".. Änderungen durchgeführt.... 


<88> 310 PRINT "-":PRINT 

<32> 320 PRINT invausS 

<36> 330 CHAIN "SHOW.BAS",70,ALL 

<33> 340 END 

<23> 350 DATA 0280,18,44,61,74,65,69,6e,61,6d,65,20,66, 
61,6c,73,63,68,20,20 

<21> 360 DATA 0293,13,46,65,68,6c,65,72,3a,20,5a,65,69, 
6c, 65 

<25> 370 DATA 02B2,27,46,45,48,4c,45,52,3a,20,4b,65,69, 
6e,65,20,2e,53,55,42,2d,44,61,74,65,69,20,20,20 
<25> 380 DATA 02EA,21,3f,20,44,61,74,65,69,20,66,7d,72, 
20,53,55,42,4d,49,54,3a,20,20 
<75> 390 DATA 0315,12,4c,65,73,65,66,65,68,6C,65,72,20, 
20 

<33> 400 DATA 0324,23,55,6e,67,7d,6c,74,69,67,2e,20,41, 
53,43,49,49,2d,5a,65,69,63,68,65,6e 
<58> 410 DATA 033C,15,50,61,72,61,6d,65,74,65,72,66,65, 
68,6c,65,72 

<43> 420 DATA 034C,21,46,45,48,4c,45,52,3a,49,6e,68,2e, 
76,65,72,7a,2e,20,76,6f,6c,6c 
<40> 430 DATA 14BB,33,57,41,52,4e,55,4e,47,3a,50,52,4f, 
47,52,41,4d,4d,45,49,4e,47,41,42,45,20,49,47,4e,4f 
,52,49,45,52,54 
<48> 440 DATA ENDE,00 
<31> 450 ' 

<42> 460 'SUBMIT.BAS 


LISTING 

< 1> 

10 

< 2> 

20 

< 3> 

30 

< 4> 

40 

< 5> 

50 

< 6> 

60 

< 7> 

70 

<98> 

80 i 

<92> 

90 i 

<82> 

100 

<25> 

110 

<66> 

120 

<82> 

130 
! ■ 

<34> 

140 

<79> 

150 

<52> 

160 

<3 7> 

170 

< 3> 

180 

<24> 

190 

<72> 

200 

<41> 

210 

<44> 

220 

<32> 

230 

<76> 

240 

<45> 

250 

<93> 

260 

<91> 

270 

<42> 

280 

<74> 

290 

<32> 

300 

<88> 

310 

<32> 

320 

<82> 

330 

<33> 

340 

<65> 

350 
47, < 

<88> 

360 

7d,( 

<13> 

370 
4c, ( 

<39> 

380 


* . * 

* . SHOW. BAS. -. Patchprogramm. * . 

* . * 

*. Hans-Joachim Steller/90. * 


74, 7a,20, 6 1,75, 66, 20, 64, 65,6d,20, 4C, 61,75,66 
,72, 6b, 20,20,20,20,20 


Listing: DOLMETSCHER 


: PRINT 


,49,4e, 

r 6e,67, 
),20,20 
,73,20, 

73,61 , 
,77,65 


102 PC 4 / 5’91 
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390 DATA 023F,19,55,6e,67,7d,6c,74,69,67,65,20,45, 

69,6e,67 ( 61,62,65,20,20 

400 DATA 028A,05,46,52,45,49,20 

410 DATA 0319,27,53,6f,2e,24,4d,6f,2e,24,44,69,2e, 
24,4d,69,2e,24,44,6f,26,24,46,72,26,24,53,61,26 
420 DATA 0345,14,49,6e,68,61,6C,74,73,76,65,72,7a, 
2e,20,20 

430 DATA 03F0,28,42,69,74,74,65,20,65,69,6e,65,20, 
54,61,73,74,65,20,64,72,7d,63,6b,65,6e,2e,00,3a,20 
440 DATA 0416,21,4C,57,20,42,65,7A,65,69,63,68,6E, 
75,6E,67,20,20,20,20,20,20,20 

450 DATA 042C,24,31,32,38,20,42,79,74,65,20,52,65, 

63,2e,20,4b,61,70,61,7a,69,74,7b,74,20 

460 DATA 0445,24,4b,62,79,74,65,20,40,61,75,66,77, 

2e,20,4b,61,70,61,7a,69,74,7b,74,20,20 

470 DATA 045E,26,33,32,20,42,79,74,65,20,49,6e,68, 

2e, 76,65,7 2,7a,2e,20,45,69,6e, 74,72,7b,67,65 

480 DATA 0479,26,52,2f,4f,20,45,69,6e,74,72,7b,67, 

65,20,69,6d,20,49,6e,68,2e,76,65,72,7a,2e,20 

490 DATA 0494,25,52,65,63,6f,72,64,73,20,49,6e,68, 

2e, 76,65,72,7a,2e,65,69,6e,74,72,7b,67,65 

500 DATA 04AE,15,52,65,63,6f,72,64,73,20,2f,20,42, 

6c,6f,63,6b 

510 DATA 04BE,15,53,65,63,74,6f,72,65,6e,20,2f,20, 
53,70,75,72 

520 DATA 04CE,16,52,65,73,65,72,76,2e,20,53,70,75, 
72,65,6e,20,20 

530 DATA 04DF,23,42,79,74,65,73,20,70,72,6f ,20,53, 

65,63,74,6f,72,20,20,20,20,20,20,20 

540 DATA 04F7,09,2C,20,20,46,72,65,69,3a,20 

550 DATA 0501,39,5a,65,69,74,2d,2f,44,61,74,75,6d, 

73,65,69,6e,74,72,7b,67,65,20,69,6d,20,49,6e,68,61 

,6c,74,73,76,65,72,7a,2e,20,20,20 

560 DATA 0529,39,46,72,65,69,65,20,45,69,6e,74,72, 
7b,67,65,20,69,6d,20,49,6e,68,61,6c,74,73,76,65,72 
,7a,65,69,63,68,6e,69,73,20,20,20 

570 DATA 0551,13,41,63,74,69,76,65,20,55,73,65,72, 
20,3a 

580 DATA 0560,13,41,63,74,69,76,65,20,44,61,74,65, 
69,3a 

590 DATA 056F,13,23,20,64,65,72,20,44,61,74,65,69, 

20,20 

600 DATA 057E,16,4b,65,6e,6e,7a,2e,20,64,65,72,20, 
44,61,74,65,69 

610 DATA 058F,19,5a,75,67,72,69,66,66,00,41,6e,6c, 

65,67,65,6e,20,20,20,61 

620 DATA 05AB,03,61,75,73 

630 DATA 05B4,01,61 

640 DATA 05BD,01,61 

650 DATA 0506,03,61,75,73 

660 DATA 05CF,01,61 

670 DATA 05D6,03,61,75,73 

680 DATA ENDE,00 

690 1 

700 'SHOW.BAS 


LISTING >DIR<, REMARK = >'<. 

< 1 > 10 ' **************************************** 

< 2 > 20 ' *. * 

< 3> 30 1 *. DIR.BAS. Patchprogramm.... * 

< 4> 40 1 *. * 

< 5> 50 ' *. Hans-Joachim Steller/90. * 

< 6> 60 ' **************************************** 

< 7> 70 1 

<98> 80 esc$=CHR$(27) 

<92> 90 cls$=esc$+"E"+esc$+"H" 

<82> 100 invan$=esc$+"p":invaus$=esc$+"q" 

<25> HO PRINT invanS:PRINT:PRINT 

<94> 120 PRINT:PRINT ". DIR.COM wird geändert.. 


<38> 130 PRINT:PRINT "- — Bitte eine Taste drücken 

i_ ii 

<34> 140 PRitNT invausS 
<79> 150 t$=INPUT$(1) 

<14> 160 OPEN "R",#1,"DIR.COM",1 
<37> 170 FIELD #1,1 AS byteS 
< 3> 180 READ adr$,zahl 
<24> 190 IF adr$="ENDE" THEN 270 
<72> 200 start=VAL("&H"+adrS)-&HFF 
<4l> 210 FOR i=start TO start+zahl-1 
<44> 220 READ aenderS 

<32> 230 LSET byte$=CHR$(VAL("&H"+aender$)) 

<76> 240 PUT #l,i 
<45> 250 NEXT 
<93> 260 GOTO 180 
<91> 270 CLOSE 
<42> 280 PRINT invanS 

<74> 290 PRINT "-" 

<32> 300 PRINT CHR$(7);".. Änderungen durchgeführt.... 


Leer - Diskette einlegen... 

. in Laufwerk. A. und mit... 
PIP A:=*.COM die geänderten 
Programme auf die Leerdisk. 

. überspielen, danach alle.. 

. alten Programme mit. ERA.. 
löschen und die geänderten. 

. . an ihre Stelle setzen.... 


Listing: DOLMETSCHER 


<88> 310 PRINT "-" : PRINT 

<13> 320 PRINT ". " 

<88> 330 PRINT ".. SYSTEM eingeben um in das.. » 

<57> 340 PRINT ". Bezugslaufwerk. M zu kommen. " 

<27> 350 PRINT ". " _ 

<81> 360 PRINT ". Leer - Diskette einlegen.... " 

<79> 370 PRINT ".. in Laufwerk. A. und mit_ " 

<82> 380 PRINT ". PIP A:=*.COM die geänderten. " 

<23> 390 PRINT ". Programme auf die Leerdisk.. " 

<26> 400 PRINT ".. überspielen, danach alle... " 

<33> 410 PRINT ".. alten Programme mit. ERA... " 

< 5> 420 PRINT ". löschen und die geänderten.. " 

<10> 430 PRINT "... an ihre Stelle setzen. " 

<40> 440 PRINT ". '• 

<39> 450 PRINT invausS 

<38> 460 END 

<68> 470 DATA 0180,34,46,45,48,4C,45,52,3a,55,6e,7a,75, 
6c,2e,4f,70,74,69,6f,6e,20,6f,64,2e, 20,57,65,72,74 
,65,6c,69,73,74,65 

<18> 480 DATA 01B9,46,46,45,48,4c,45,52,3a,20,4c,61,75 , 
66,77,65,72,6b,20,77,75,72,64,65,20,7a,77,65,69,6d 
,61,6c,20,61,6e,67,65,67,65,62,65,6e,2e,20,20,20,2 
0,20 

<86> 490 DATA 01FC,36,46,45,48,4c,45,52,3a,20,47,65,74, 
72,65,6e,6e,74,65,20,4f,70,74,69,6f,6e,73,61,6e,67 
,61,62,65,2e,20,20,20,20 

<76> 500 DATA 0223,28,46,45,48,4c,45,52,3a,55,6e,67,7d, 
6c,74,2e,20,4b,6f,6d,6d,61,6e,64,6f,65,6e,64,65,2e 
<82> 510 DATA 0242,07,3f,20,44,61,74,65,69 
<50> 520 DATA 1B7C,17,5a,75,77,65,6e,69,67,20,53,70,65, 
69,63,68,65,72,2e 

<23> 530 DATA 1B54,19,49,6e,68,61,6c,74,73,76,65,72,7a, 
2e,20,41,62,72,75,66,2e 

<38> 540 DATA 21DD,18,49,6e,68,61,6c,74,73,76,65,72,7a, 
2e,20,53,6f,72,74,26 

<66> 550 DATA 2527,11,4d,65,72,6b,6d,61,6c,20,20,20,20 
<42> 560 DATA 259F,10,5a,75,67,72,69,66,66,20,20,20 
<98> 570 DATA 25B0,10,41,6e,bC,65,67,65,6e,20,20,20 
<25> 580 DATA 25BD,25,42,69,74,74,65,20,65,69,6e,65,20, 
54,61,73,74,65,20,64,72,7d,63,6b,65,6e ,20 

< 8> 590 DATA 25F1,06,4c,65,73,65,6e,20 

< 4> 600 DATA 261C,20,49,6e,68,61,6c,74,20,76,6f,6e,20, 

4c,61,75,66,77,65,72,6b, 20 

< 5> 610 DATA 263E,28,46,45,48,4c,45,52,3a,20,55,6e,7a, 

75,6c,2e,20,46,6f,72,6d,61,74,61,6e,67,61,62,65,20 
<96> 620 DATA 26AF,14,44,61,74,65,69,65,6e,20,64,61,20, 
20,3d,20 

<89> 630 DATA 26D6,31,42,65,6c,2e,2f,4d,61,78,20,45,69, 
6e,74,72,7b,67,65,20,66,70,72,20,4c,61,75,66,77,65 
,72,6b,20 

<25> 640 DATA 26F6,07,3f,20,44,61,74,65,69 

< 3> 650 DATA ENDE,00 
<35> 660 ' 

<41> 670 'DIR.BAS 

Listing: DOLMETSCHER 
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I—Briefe 


Liebe Leserinnen und Leser 


Die Rubrik Leserbriefe ist 
eine Einrichtung für alle Le¬ 
ser, die in irgendeiner Form 
Fragen, Probleme oder Anre¬ 
gungen zu Produkten. Pro¬ 
gramm ierprobletnen oder zu 
unserer Zeitschrift haben. 
Selbstverständlich sind wir be¬ 
müht, alle Leserfragen zu be¬ 
antworten. 

Haben Sie jedoch bitte Ver¬ 
ständnis, daß wir nicht alle 
eingehenden Briefe persönlich 
beantworten können. Oft er¬ 
reichen uns mehrere Briefe 
zum gleichen Thema, jeweils 
einer davon wird stellvertre¬ 
tend für alle in dieser Rubrik 
beantwortet. Wir behalten uns 
vor, Leserzuschriften in ge¬ 
kürzter Form zu veröffentli¬ 
chen. 

Bitte senden Sie Ihren Leser¬ 
brief unbedingt an die folgen¬ 
de Anschrift: 

DMV-Verlag 

Redaktion 

PC INTERNATIONAL 
- Rubrik “Leserbriefe“ - 
Postfach 250 
3440 Eschwege 


Wenn Sie Fragen zu Beiträgen 
aus unserer Zeitschrift haben, 
geben Sie bitte immer die Aus¬ 
gabe und die Seite an. bei Ant¬ 
worten auf Leserbriefe ande¬ 
rer Leser bitte auch den 
Namen. 

Falls Sie Produkte aus der 
DMV-Pmduktrcihe bestellen 
wollen, benutzen Sie bitte die 
in jeder Ausgabe der PCI vor¬ 
handenen Bestellkarten oder 
schreiben Sie an: 

DMV-Verlag 

- Vertrieb/Bestellannahme - 
Postfach 250 
3440 Eschwege 

Mit der freundlichen Beach¬ 
tung der oben genannten 
Punkte ermöglichen Sie uns 
die schnelle Bearbeitung Ihrer 
Fragen und Wünsche. 

Ihre PCI-Redaktion 


CPG 


Defekte Kassette 

Ich bin Besitzer eines CPC 
464 und habe bei mehreren 
Kassetten Sch wierigkeiten 
beim Laden der Programme. 
Der Tonkopf wurde auch 
schon mehrmals gründlich 
gereinigt, aber es stellte sich 
keine Besserung ein. Gibt es 
eine Möglichkeit, solche mit 
Lesefehlern behafteten Kas¬ 
setten zu reparieren ? 

Markus Weizenegger 

Sollten Programme sich auf 
einmal nicht mehr laden las¬ 
sen, ist das immer sehr är¬ 
gerlich. Um dadurch entste¬ 
henden Problemen aus dem 
Wege zu gehen, sollten Sie 
von Ihren Programmen im¬ 
mer eine Sicherheitskopie 
anlegen. Es gibt leider keine 
Möglichkeit, Dateien mit 
Lesefehlern zu restaurieren. 
Deshalb müssen wir Ihnen 
mitteilen, daß Sie, falls kein 
Fehler an Ihrem Kassetten¬ 


teil vorliegt, solche Pro¬ 
gramme nicht mehr verwen¬ 
den können. 

Red. 


CPC 


Es wird formatiert ... 

Beim Kopieren wichtiger 
Programme von Diskette mit 
dem Kopierprogramm 
“DIS C-COP Y-PLUS “ aus 
Sonderheft 4/87 passierte 
mir ein Unglück. Ich betätig¬ 
te versehentlich eine falsche 
Taste, woraufhin die Mel¬ 
dung "Es wird formatiert... “ 
zu lesen war. So schnell wie 
möglich entfernte ich die 
Diskette aus dem Laufwerk, 
aber es war schon z.u spät. 
Nach der Eingabe von CAT 
erschien auf dem Bildschirm 
“Drive A /User 0: / 78kfree “. 
Untersuchungen mit einem 
Diskettenmonitor ergaben 
jedoch, daß noch alle Pro¬ 
gramme auf der Diskette er¬ 
halten sind. Gibt es eine 


Möglichkeit, die auf der Dis¬ 
kette befindlichen Program¬ 
me und Dateien zu retten ? 

Andreas Brosius 

Bei der von Ihnen beschrie¬ 
benen gerade begonnenen 
Formatierung müssen wir 
annehmen, daß die Ver¬ 
zeichniseinträge (Directory) 
der Diskette bereits völlig 
zerstört worden sind. Im Di¬ 
rectory wird neben dem Na¬ 
men auch eine Tabelle ange¬ 
legt, in der die von der Datei 
belegten Blöcke notiert wer¬ 
den. Da AMSDOS die 
Blöcke einer Datei nicht un¬ 
bedingt zusammenhängend 
auf der Diskette ablegt, ist es 
mit vertretbarem Aufwand 
meist nur noch möglich, 
Textdateien zu retten. Da bei 
Texten problemlos ein logi¬ 
scher Zusammenhang er¬ 
kennbar ist, kann man die 
einzelnen Blöcke mit Hilfe 
eines Diskettenmonitors auf 
der Diskette zusammensu¬ 
chen und erhält damit wieder 
eine vollständige Datei. Bei 
Programmen ist ein logi¬ 
scher Zusammenhang nicht 
erkennbar, daher ist eine 
Rettung fast immer unmög¬ 
lich. 

Red. 

I CPC 


Diaprojektion 

Ich bin ein Fotofan und habe 
ein großes Dia-Archiv. Da 
ich einen CPC 6128 besitze, 
möchte ich auch meine Dia- 
projektoren mit dem Compu¬ 
ter steuern. Wie kann ich das 
realisieren ? 

Christian Janocha 

Bei der Durcharbeitung der 
Postflut wird uns immer wie¬ 
der bewußt gemacht, was 
doch alles mit dem CPC 
möglich ist. Wenn Sie also, 
liebe Leserinnen und Leser, 
irgendwelche Ideen verwirk¬ 
licht haben, um Geräte unse¬ 
rer täglichen Umgebung mit 
dem CPC zu steuern, schrei¬ 
ben Sie uns — wir kennen 
zur Zeit keine Lösung für die 
Frage von Herrn Janocha. 
Wir werden eine diesbezüg¬ 
liche Antwort weiterleiten 
oder auch veröffentlichen. 

Red. 


Zusätzliches Floppy 

An meinen CPC 6128 möchte 
ich ein zusätzliches Disket¬ 
tenlaufwerk anschließen. Ist 
es möglich, dafür ein Lauf¬ 
werk 1541 C von COMMÖ- 
DORE zu verwenden, und 
wenn ja, wie müßte dieses 
angeschlossen werden ? 

Uwe Sikora 

Der Anschluß eines Lauf¬ 
werkes 1541 C ist aus techni¬ 
schen Gründen nicht mög¬ 
lich. Grundsätzlich sollten 
Sie nur Erweiterungen an¬ 
wenden, die auch die not¬ 
wendigen Kompatibilitätsan¬ 
sprüche erfüllen. Nur so 
wird es für Sie möglich sein, 
angebotene Software ohne 
Einschränkungen nutzen" zu 
können. Anzeigen von 
Händlern, bei denen CPC- 
Hardware-Erweiterungen 
erhältlich sind, finden Sie in 
jeder Ausgabe der PCI. 


|_CPC_ 

Superform 

Leider mußte ich feststellen, 
daß das von Ihnen veröffent¬ 
lichte Programm “Super¬ 
form vJ.O“ aus Ausgabe 
2-3/91 auf meinem CPC 
6128 nicht läuft. Aus diesem 
Grunde habe ich das Pro¬ 
gramm näher untersucht und 
folgende fünf Zeilen geän¬ 
dert: 

130 DATA 10, E5, 09, 28, 00, 03, 
07, 00, D6, 00, 3F, 00, C0, 00, 
10, 00, = 981 

140 DATA 00, 00, Al, 0A, 10, IE, 
E5, 02, 04, 00, 00, Al, 02, 00, 
00, A6, = 781 
200 ZETLE=50:SCHRITT=1 
300 IF adr < last THEN sum=0: 
zeile=zeile+schritt*10: GOTO 
220 

360 PRINT"ISUPERFORM = Forma¬ 
tiert Diskette im Superformat“ 

Nach dieser Änderung läuft 
das Programm fehlerfrei. 

Wenn Sie es jetzt noch durch 
folgende Zeilen ergänzen, ist 
das Programm zusätzlich in 
der Lage, nach Aufruf von 
I AMSDOS im üblichen Data- 
format zu formatieren: 


104 PC 4/5’91 


















Briefe—i 


304 REM;Data-Format 

305 GOSUB 390 

390 POKE 44946,193 
400 POKE 44955,193 
410 POKE 44959,198 
420 POKE 44963,194 
430 POKE 44967,199 
440 POKE 44971,195 
450 POKE 44975,200 
460 POKE 44979,196 
470 POKE 44983,201 
480 POKE 44987,197 
490 POKE 44991,202 
500 RETURN 

Hans-Peter Pfennig 


CPC I 

Seitenweise Bildschirm¬ 
ausgabe 

Für meinen CPC 464 suche 
ich ein Programm, das es 
mir ermöglicht, ein Listing 
Zeilen- oder seitenweise per 
Tastendruck auf dem Bild¬ 
schirm zu betrachten. Eine 
Alternative wäre auch eine 
Verlangsamung des Bild- 
sch irm-Scro I lens. 

Gerhard Wiehert 

Auch diese Frage geben wir 
an unsere Leser weiter. 

Red. 


CPC_ 

PC-Programme auf 
dem CPC 

Seit einem halben Jahr besit¬ 
ze ich einen CPC 6128 und 
bin seit kurzem begeisterte 
Leserin Ihrer Zeitschrift. 
Leider habe ich aber in mei¬ 
ner näheren Umgebung noch 
keinen Händler gefunden, 
bei dem CPC-Programme 
erhältlich sind. Mein Vater 
besitzt aber einen PC und hat 
dafür sehr viele Programme, 
die unter MS-DOS laufen. Ist 
es irgendwie möglich, diese 
auf meinem CPC, vielleicht 
unter CP/M Plus, lauffähig 
zu machen ? 

Manuela Klein 

Hierauf können wir Ihnen 
leider nur mit NEIN antwor¬ 
ten. Der PC und der CPC 
sind zwei völlig unterschied¬ 
lich aufgebautc Geräte. Au¬ 
ßerdem haben sie auch unter¬ 
schiedliche Mikroprozesso¬ 
ren. Das sind die Teile eines 


Rechners, die die Hauptar¬ 
beit verrichten. Starten Sie 
nun mit dem CPC, egal unter 
welchem Betriebssystem, 
ein PC-Programm, so wird 
Ihr Computer in der Regel 
abstürzen, das heißt, er wird 
jegliche Arbeit verweigern 
— sofern er überhaupt die 
Diskette liest. Der Grund da¬ 
für sind die Befehlssätze, die 
Sprachen der beiden Prozes¬ 
soren. die nicht übereinstim¬ 
men. Zum Schluß sei noch 
der Hinweis gestattet, daß 
Programme für den CPC so¬ 
wohl beim DMV-Verlag als 
auch bei verschiedenen 
Händlern erhältlich sind, de¬ 
ren Adressen Sie der PCI 
entnehmen können. 


Red. 



Hardware-Defekte 
durch Sofware? 

Seit einiger Zeit habe ich 
Probleme mit der Tastatur 
meines 6128, genauer mit 
der oberen Tasten reihe. 
Manchmal erscheint nach 
dem Drücken einer Taste 
dieser Reihe nicht das ge¬ 
wünschte Zeichen, sondern 
irgendein beliebiges. Dieser 
Effekt tritt aber erst seit der 
Nutzung eines unlängst ge¬ 
kauften Spieles auf. Kann 
das Programm die Ursache 
sein, und wie kann ich das 
wieder rückgängig machen ? 

Ingo Lakowski 


Mit Bestimmtheit kann man 
sagen, daß die Tastatur des 
CPC durch ein Programm, 
egal welcher Art, nicht ge¬ 
schädigt werden kann. Spä¬ 
testens nach dem Aus- und 
wieder Einschalten sind jeg¬ 
liche Betriebsstörungen, die 
durch Software verursacht 
werden können, wieder be¬ 
seitigt. In Ihrem Fall liegt die 
Ursache woanders. Lassen 
Sie Ihr Gerät doch einmal in 
einer Werkstatt überprüfen. 
Grundsätzlich können Schä¬ 
den an der Hardware nicht 
durch Software verursacht 
werden. Eine Ausnahme 


muß man da bei den Disket¬ 
tenlaufwerken machen. Sie 
können durch Diskettenfor¬ 
mate, die mehr als 42 Spuren 
haben, überansprucht werden. 

Red. 


CPC 


Viren beim CPC? 

Man hört immer wieder von 
neuen Viren, die bei den PCs 
im Umlauf sind. Besteht die 
Möglichkeit, daß Viren auch 
bei CPC-Software auftreten ? 

Michael Brandt 

Viren haben bis jetzt nur bei 
solchen Rechnern Verbrei¬ 
tung gefunden, die in der 
Lage sind, große Datenmen¬ 
gen zu verarbeiten und daher 
auch einen großen Speicher¬ 
raum zur Verfügung haben. 
Erst unter solchen Voraus¬ 
setzungen ist es möglich, 
diese Störprogramme unent- 
deckt zu installieren. Bei 
dem geringen Speicher des 
CPC und der vergleichs¬ 
weise niedrigen Arbeitsge¬ 
schwindigkeit würde aber 
ein zusätzliches Störpro¬ 
gramm über kurz oder lang 
auffallen beziehungsweise 
von anderen Programmen 
zerstört werden. Gefahr be¬ 
stünde da allerhöchstens für 
Leute, die einen CPC mit 
Festplatte benutzen. Betreffs 
dieser Konfiguration ist uns 
aber ebenfalls nichts über 
Viren bekannt. 

Red. 



Gepatchtes Einerlei 

In dem Artikel wurde fälsch¬ 
licherweise die Abkürzung E 
für unendliche Leben be¬ 
nutzt. Sie muß jedoch für un¬ 
endliche Energie stehen. 

Manuel Reiche/r 


I_ PCW 


PCI 12/1E91 
(PATCHB84.SUB) 

Leider steckte in dem von uns 
angegebenen Patch “der 
Wurm “ drin. Nur allein die¬ 


ser Patch kann unmöglich 
den erwarteten Erfolg mit 
sich bringen, da hierbei das 
Betriebssystem an sich ver¬ 
gessen wurde. Um also die 
Funktion dieses Patches 
nachträglich zu ermögli¬ 
chen, hier die Lösung: 

• Erst in der Datei 
J14GCPM3. EMS an der 
Adresse 0eb4 den Wert 54 
eintragen. 

• Ist dies geschehen, muß 
man das Betriebssystem la¬ 
den und an der Adresse lcc2 
in DISCK/T. COM ebenfalls 
den Wert 54 eintragen. 

Nun können Sie mit DISCKIT 
Ihre Disketten auf stolze 178 
Spuren und 742 kByte forma¬ 
tieren und unter CP/M 
nutzen. 

Joachim Hermann 

r pc 

Festplatte beim PC 
1640 

Vor einiger Zeit erwarb ich 
für meinen PC 1640 eine 
Festplatte. Während in ande¬ 
ren PCs bei einem typenglei¬ 
chen Modell eine Datenüber¬ 
tragungsrate von 100 kByte 
pro Sekunde erreicht wurde, 
schaffte diese Festplatte nur 
27 kByte pro Sekunde. Das 
kommt der Übertragungsrate 
eines Diskettenlaufwerkes 
sehr nahe. Ich testete die 
Platte mit verschiedenen In- 
terleave-Faktoren (2 bis 5), 
die bei anderen Rechnern 
gute Übertragungsraten er¬ 
gaben, beim PC 1640 aber 
ohne Ergebnis blieben. Vor 
kurzem ging ich das Problem 
wieder an und versuchte es 
diesmal mit völlig anderen 
Faktoren. Das beste Ergeb¬ 
nis brachte der Faktor 9 mit 
einer Übertragungsrate von 
80 kByte pro Sekunde. Somit 
ist der Interleave-Faktör 
beim PC 1640 erheblich hö¬ 
her als bei anderen Rech¬ 
nern. 

Willibald Steffen 
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"Invasion of the Vorticons" . 

Episode One: Marooned on Mars 


COMMANDER KEEN 

Der Shareware-Spiele-Hammer 

Kennen Sie das — Sie erblicken irgend etwas (oder auch irgend jemanden) und sind 
auf einen Schlag begeistert, hingerissen, gefesselt...? Sie werden geradezu süchtig, 
kommen nicht mehr davon los ...? Nun — so wird es vielen gehen, die das hier im 
folgenden vorgestellte Sharew are-Spiel kennenlernen. 


Teil 1, Maroned on Mars ist 
als Shareware erhältlich, die 
beiden anderen bisher erhält¬ 
lichen Versionen, The Earth 
explodes und Keen must 
die!, werden zusammen mit 
Teil 1 als kommerzielle Kauf¬ 
software vertrieben. Wer das 
Spiel zunächst prüfen will, 
sollte sich die Shareware- 
Version ansehen — grund¬ 
sätzlich lohnt es sich aber von 
vornherein, alle Teile zu er¬ 
werben — denn COMMAN¬ 
DER KEEN macht Spaß und 
kann zum Krimi werden!! 

Drei Teile, die es in 
sich haben 

Billy Blaze, ein acht Jahre al¬ 
ter Junge und genialer Bast¬ 
ler, grogelt täglich in seinem 
Schuppen hinter dem Haus 
seiner Eltern. Aus allen mög¬ 
lichen Teilen, beispielsweise 
alten Blechdosen, Gummikle¬ 
ber und Silikon, hat er sich im 
Laufe der Zeit ein interstella¬ 
res Raumschiff gebaut. Als 
seine Eltern eines Tages in 
der Stadt unterwegs sind und 
sein Kindermädchen ein 
Nickerchen macht, mar¬ 
schiert Billy schnurstracks in 
seinen Schuppen. 

Er setzt sich den Football- 
Helm seines großen Bruders 
auf und wird zu COMMAN- 


Für manche ist der Computer mehr voraus. Man sollte stolze/r Besitzer/in 

Mittel zum Zweck. Fertigungsinstru- mindestens eines EGA-Monitors nebst 

ment für konstruktive Arbeit und weni- Karte sein — VGA ist jedoch zu emp- 

ger Spielobjekt in der Freizeit. Es kann fehlen, wobei hier zwar Graustufen¬ 
aber passieren, daß sich so etwas Monocrom-Monitore geeignet sind, 

schnell ändert — nämlich dann, wenn Farbe aber aufgrund der tollen Grafik 

Spiele auf den Markt kommen, die weit wünschenswert ist. CGA und Hercules 

aus dem unüberschaubaren Angebot an werden nicht berücksichtigt. 

Software dieses Genres herausragen. 

Ein Spiel sollte nicht nur unterhaltsam Ein spannendes Spiel für die 
sein, sondern auch spannend, aufre- ganze Familie 
gend, optisch hervorragend und nie- 

mals langweilig — COMMANDER Hinzu kommen eine Festplatte (zumin- 
KEEN erfüllt all diese Wünsche nicht dest für Teil 3 des Spiels bei XTs) so- 
nur, sondern übertrifft sie zudem. Das wie ein Joystick. Das Spiel kann zwar 

zeigt sich vor allem darin, daß das auch über die Tastatur bedient werden, 

Spiel es schafft, Familienmitglieder, ein Joystick macht aber in Verbindung 
Freunde und Bekannte, die mit Com- mit COMMANDER KEEN seinem 
putern nichts zu tun haben (wollen), an Namen alle Ehre, 
den Rechner zu holen — mit dem Benötigt werden mindestens 640 kByte 
großen “Nachteil“, daß man die Leut- RAM, von denen 520 kByte für das 
chen dann nicht mehr davon wegbe- Programm frei sein sollten. Speicher¬ 
kommt...! residente Programme sollten Sie tun- 

COMMANDER KEEN setzt jedoch liehst vor dem Start des Spiels ent- 

vor Spielgenuß einiges an Hardware fernen. 


DER KEEN — dem Retter der 
Erde und startet mit seinem Raum¬ 
schiff, betrieben mit Bohnen und 
Speck, zu Heldentaten zum Schutz der 
Erde vor galaktischen Bösewichtern. 

In “Maroned on Mars“ Biegt Keen zum 
Mars, um sich dort umzusehen. Er 
wird entdeckt von den galaktischen 
Unholden, den Vorticons, die in ihm 
mit Recht eine Bedrohung für ihr 
schändliches Tun sehen und ihn ver¬ 
nichten wollen. Während Keen auf 
dem Mars eine Bergtour unternimmt, 
brechen die Vorticons in sein Schiff ein 
und stehlen ihm verschiedene Aggre¬ 
gate. Diese bestehen allesamt aus Tei¬ 
len des alltäglichen Lebens, beispiels¬ 
weise einem Joystick für die Steuerung 
des Schiffs, einer Autobatterie für die 
Versorgung der elektischen Einheiten 
und anderem mehr. 

Keen kommt zurück, sieht, was ge¬ 
schehen ist und macht sich auf, nicht 
nur seinen Besitz zurückzuholen, son¬ 
dern auch die Vorticons zu bekämpfen. 
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Bild 1: Keen auj dem Mars 



Bild 2: Die Vonicons - galaktische Unholde der übelsten Sorte 


Dabei müssen Sie ihn unterstützen, 
indem Sie mit ihm durch die wunder¬ 
same Mars weit gehen, auf Gefahren 
achten und mit ihm seinen Besitz ein¬ 
sammeln. 

Vorsicht vor den Vorticons 

Keen hat aber die Möglichkeit, sich ei¬ 
niger Hilfsmittel zu bedienen. Als 
nämlich die Viking-Sonde der NASA 
auf dem Mars landete, verursachte sie, 
unbemerkt von der NASA und den 
Erdbewohnern, einen Aufstand auf 
dem Mars, weil sie bei der Landung 
den bösen Mars-König erdrückte. Die 
freundlichen Yorps, einäugige Marsbe¬ 
wohner, befreiten sich aus der Sklave¬ 
rei, worüber sich ihre Herrscher, die 
fiesen Gargs. mächtig ärgerten. 

Die Gargs machten sich also in Ufos 
auf zur Erde und klauten wie die Raben 
hauptsächlich Spielzeuge, die sie zu¬ 
nächst als große Schätze ansahen. Die 
Spielzeuge, Skateboards, Pogo-Sticks 
und anderes liegen nun überall auf dem 
Mars herum und können Keen eine Hil¬ 
fe sein ... 

Keen kann zudem viele Punkte sam¬ 
meln (je mehr Punkte, umso mehr Le¬ 
ben) und sollte auch darauf achten, 
stets genug Muniton zu haben, um sich 
gegen seine Feinde wehren zu können 
- also immer Obacht geben. 

Im Teil 2, The Earth exp!ödes, kehrt 
Keen nach erfolgreichem Abschluß der 
Marsmission mit seinem wieder kom¬ 
pletten Raumschiff auf die Erde zu¬ 
rück. Er freut sich auf das Wiedersehen 
mit seinen Eltern - als er beim Eintau¬ 
chen in die Atmosphäre der Erde ein 
riesiges Vorticon-Mutterschiff im Orbit 
kreisen sieht. 


Die Vorticons haben nämlich beim 
Einbruch in sein Raumschiff festge¬ 
stellt, woher er kommt und sich dann 
aufgemacht, die Erde zu unterwerfen. 
Keen muß also den Football-Helm auf¬ 
behalten und erneut, diesmal auf ver¬ 
trautem Terrain, die Vorticons be¬ 
kämpfen. Er muß es schaffen — denn 
sonst explodiert die Erde - helfen Sie 
ihm dabei! 

Im letzten Teil dann hat Keen von den 
Vorticons endgültig die Nase voll. Er 
generalüberholt sein Raumschiff und 
fliegt zum Hauptplaneten der Vorti¬ 
cons, um ihnen ein für alle Mal den 
Garaus zu machen. Die Vorticons er¬ 
warten ihn aber schon, denn sie erhiel¬ 
ten von ihrem Herrscher eine einzige, 
aber klare Order: Keen must die! - 
Keen muß sterben. Damit das nicht 
passiert, ist Keen wieder auf Ihre Hilfe 
angewiesen. 

Hervorragende Grafik, 
fließender Spielablauf 

Was das Programm COMMANDER 
KEEN aus der Menge der Spiel-Soft¬ 
ware hervorhebt, ist einmal die wirk¬ 
lich hohe Geschwindigkeit, mit der das 
Spiel abläuft. Man braucht nicht auf 
sich aufbauende neue Grafiken zu war¬ 
ten, da der gesamte Spielverlauf auf 
dem Bildschirm völlig fließend von¬ 
statten geht. 

Die Grafiken berauschen regelrecht, 
was Farben und auch die unzähligen, 
detailgenauen Gags angeht, beispiels¬ 
weise die Bewegungen der Vorticons, 
die Feinheit der verschieden Objekte 
und auch die Vielzahl der Wege und 
Pfade, auf denen Keen zusammen mit 
Ihnen wandeln kann. 


Hinzu kommt, daß COMMANDER 
KEEN eben keines der sattsam bekann¬ 
ten “Ballerspiele“ ist, deren einziger 
Sinn und Zweck im Umlegen allerlei 
Gauner oder ähnlichem liegt. Vielmehr 
muß man bei diesem Spiel nicht nur 
sehr einfühlsam mit Tastatur oder Joy¬ 
stick umgehen, sondern auch ständig 
auf die Spielfigur und deren Umgebung 
achten. Man muß überlegen, wie man 
Vorgehen will, versuchen, an die Hilfs¬ 
mittel heranzukommen (was nicht eben 
einfach ist), “nebenher“ Punkte ma¬ 
chen und vor allem vielen Gefahren 
durch Taktik begegnen. 

Alle Teile sind komplett in englischer 
Sprache gehalten, wobei das übliche 
Schulenglisch ausreichen sollte, zumal 
die Bedienungsanleitung — vorhanden 
als Dateien auf den Disketten - kurz, 
aber ausreichend ist. Will man den er¬ 
sten Teil weiternutzen, sollte man sich 
beim Programmautoren registrieren 
lassen. 

Wirklich zu empfehlen ist, wie schon 
erwähnt, bei diesem Spiel der Erwerb 
der kommerziellen Version mit allen 
drei Teilen, denen auch als Loseblatt¬ 
werk eine “Tips & Tricks-Liste“ bei¬ 
gefügt ist. COMMANDER KEEN ist 
zwar schön zu spielen - aber das be¬ 
rühmte “Gewußt wie“, versteckte 
Spielmöglichkeiten und -lösungen 
also, fehlen bei diesem Spitzenspiel na¬ 
türlich auch nicht. 

(Thomas Kallay) 


Info 

PD-Service Lage 

Postfach 1743 

4937 Lagc/Lippe 

Tel.: 05232/66912 

Preis Shareware (Teil 1): 4.50 DM 

Preis Vollversion (Teile 1-3): 58.50 DM 
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Aus allen Ländern ... 

Public-Domain- und Shareware- 
Programme 

Dank des riesigen Pools, der mittlerweile im Bereich Public Domain und 
Shareware existiert, hat man preiswerten Zugriff auf viele nützliche, 
interessante, unterhaltsame und professionell gemachte Programme. Eine 
Auswahl stellen wir Ihnen wieder vor. 


• Scantool 

Den PC-Anwendern wird das Leben 
häufig von Plagegeistern erschwert, 
die sich in Daten, Boot-Sektoren und 
Programmen ihrer Rechner einnisten: 
den Viren. 

Das regelmäßige Sichern der Daten ist 
ein Mittel, dem vorzubeugen, ein ande¬ 
res sind die in großer Vielzahl erhältli¬ 
chen Viren-Test-Programme oder auch 
Vircn-Scanner. Bei vielen davon kann 
man sich über deren Sinn oder Unsinn 
streiten — bei einem sicher nicht: VI¬ 
RUSSCAN, das Virenschutz-Programm¬ 
paket von McAffee Associates aus San¬ 
ta Clara im Sonnenland Kalifornien, 
USA. die sich mittlerweile weltweit ei¬ 
nen Namen als rigoroser Bekämpfer 
von Viren gemacht haben und das Pa¬ 
ket als Shareware vertreiben. 

In regelmäßigen Abständen erhält man 
nach Registrierung bei einem deut¬ 
schen McAffee-“ Agenten“ (Anschrift 
in der Datei AGENTS.TXT) neue Up¬ 
dates des VIRUSSCAN-Paketes und 
hat damit einen zuverlässigen und in 
bezug auf “Viren-Neuheiten“ stets ak¬ 
tuellen Helfer bei der Vorbeugung und 
auch Suche nach den nerv- und daten¬ 
tötenden Störenfrieden. 

Ein kleiner Nachteil von VIRUSSCAN 
ist jedoch, daß die Programme aus¬ 
schließlich auf DOS-Ebene bedient 
werden können, was manchen Anwen¬ 


dern reichlich schwerfallt. Für den 
deutschsprachigen Raum wurde dieses 
Problem nun mit Scantool von DEZET, 
Speyer, gelöst, welches eine komforta¬ 
ble Menünutzung für das McAffee- 
Produkt bietet. 

Um Scantool einwandfrei nutzen zu 
können, müssen mindestens 400 kByte 
RAM verfügbar sein. Es läuft mit allen 
DOS-Betriebssystemen ab Version 2.1 
und kann sowohl von Diskette als auch 
von Festplatte betrieben werden. Die 
Bedienung ist übersichtlich und kom¬ 
fortabel, da, so vorhanden, eine Maus 
unterstützt wird. Eine ausführliche Be¬ 
dienungsanleitung befindet sich als 
Textdatei auf Diskette. 

Installiert wird das Programm durch 
einfaches Kopieren auf eine Arbeits¬ 
diskette oder in ein Unterverzeichnis 
der Festplatte. Wichtig ist. daß sich die 
Programme SCAN, CLEAN, MDISK 
und VCOPY, die zum McAffee-Paket 
gehören, auf demselben Datenträger 
und/oder im gleichen Verzeichnis wie 
Scantool befinden. 

Nach dem Programmstart sollte man 
zunächst im Menü Setup verschiedene 
Einstellungen vornehmen, da Scantool 
mit einer Grundeinstellung ausgeliefert 
wird. Sehr zu empfehlen ist die Akti¬ 
vierung der Optionen Speichertest und 
Komplettest , damit sowohl der Arbeits¬ 
speicher als auch sämtliche Dateien, 


also nicht nur *.COM- und *.EXE-Da- 
teien, überprüft werden. 

Scantool bietet zu jedem seiner Menü¬ 
punkte mit der Taste <F1> eine 
knappe, aber trotzdem informative Er¬ 
läuterung. Im Menü Zusätze werden 
generelle Informationen zu Scantool 
mitgeliefert. Wichtig ist das Menü An¬ 
leitungen, in dem nämlich die von 
McAffee mitgelieferten Bedienungsan¬ 
leitungen (Textdateien) zu seinen Pro¬ 
grammen eingesehen werden können. 
Natürlich gilt dies auch für die Textda- 
tci. die die Bedienungsanleitung von 
Scantool enthält. 

In den Menüpunkten Finden und Ent¬ 
fernen geht es dann richtig zur Sache, 
wenn man zur Virensuche — und deren 
Beseitigung — schreiten will. Schließ¬ 
lich bietet McAffee mit seinem Paket 
nicht nur die Suche nach den “uner¬ 
wünschten Gästen”, sondern auch de¬ 
ren Vernichtung an. Mit den “Viren- 
Räumern“ sollte man sich aber nicht 
aufs Glatteis begeben, weil sie mit eini¬ 
ger Vorsicht bedient werden müssen. 
Man soll und kann mit ihnen zwar Vi¬ 
ren beseitigen, kann dadurch aber auch 
Datenverlust anrichtcn — sorgfältiges 
Vorgehen ist also angebracht. 

Alles in allem dürfte sich Scantool, zu¬ 
sammen mit McAffees Paket zu einem 
echten Shareware-Renner in Sachen 
Virenbekämpfung im deutschsprachigen 
Raum entwickeln. Eine englische Ver¬ 
sion von Scantool ist auch lieferbar. 

Info 

I'D-Servicc Lage 

Shareware 

(iehühr Vollversion: 39, - DM 

Voraussetzungen: 4(K) kByte RAM. DOS ah Version 2.1, 
VIRUSSCAN-Paket um McAffee 

• BriteLine 

Manchmal sind es die kleinen, auf den 
ersten Blick unscheinbaren Program¬ 
me, die die Arbeit am PC wesentlich 
erleichtern können. Das Shareware- 
Programm BriteLine gehört dazu. 

Gerade die PC-Einsteiger haben oft 
noch ihre liebe Not mit dem Betriebs¬ 
system MS-DOS und seiner Befehls¬ 
zeile. Wenn der Bildschirm zudem voll 
ist. sei cs von diversen Anzeigen oder 
der Abschlußmeldung beendeter Pro¬ 
gramme, kann es recht schwerfallen, 
die Übersicht zu behalten. 

BriteLine nun ändert dieses grundle¬ 
gend, indem es die Möglichkeit bietet, 
die Befehlszeile farbig zu unterlegen 
und die Darstellung dieser “Cursor- 
Zeile“ auch optisch zu verändern. 
Dazu wird BriteLine resident in den 
Speicher gelegt und bietet in der Voll¬ 
version etliche Möglichkeiten zur Mo- 
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Benutzeroberflache 
für: 

UirusScan • CleanUp • IIDisk ■ UCopy 
(C)opyright by J. Mcftfee Associates 


Scantool (C)opyrlglit’90,91 by DEZET 


Dirk Zender, Dudenhoferstr.64 
6720 Speyer, Tel.:06232 98148 
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Bild I: Scantool - 
; Menüaufsatz fitr das 
VIR USS CAN-Paket 
von McAffee 
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BriteLine Uer 1.0 
(c) 19% RSE lue 
Switch Hot Key: Alt 0 

BriteLine is user-supported Shareware. If you Beeide to continue «sing it 
then you need to register by sending $10 ($1 more for 3.5 disk) to: 

BriteLine Registration Uisa or HC Customers 

1157 57t!i Drive SE (206) 939-1105 

Auburn, UA 98002 CompuServe 72371.1557 

)s a registered user you'II recieve lliese additional benefits: 

1. The confIguration program which lets you change the 
Cursor size, rou color-, switch "liot key” and more. 

2. The "RSE Shareware disk" wliicli includcs PC Directory, 

PC-Fileliotes, Hemiud Mt:!. Conjecture, Nabbit and PC-Images. 

3. Tech support and the latest Version of BriteLine. 

1. No more of these annoyiny messages. 

lopc you find BriteLine useful and worlliy of your support. Thank you, 


C:\SHAREVBRITE> 


difizierung, die den Umgang mit DOS 
vereinfachen. 

Info 

Die Deutsche Software Bibliothek 
Monatsdiskette Januar 1991 
Shareware 

Gebühr Vollversion: 10. - US$ 

Voraussetzungen: keine 

• DPED 

Bei vielen Programmen, meistens Pu¬ 
blic Domain und Shareware, werden 
die Handbücher als Textdaleicn auf 
dem Datenträger mitgeliefert, und man 
benötigt einen Editor, um sie lesen und 
eventuell ändern zu können. Der Nach¬ 
teil vieler Editoren, die beispielsweise 
den Bedienungsoberflächen beigefügt 
sind, ist aber, daß man lediglich kleine¬ 
re Dateien editieren kann. Hinzu 
kommt, daß Features, wie etwa Mar¬ 
kieren von Text, Blockoperationen 
oder aber das Ausdrucken des Textes, 
nur sehr selten geboten werden. 

DPED ist ein sehr komfortabler Editor, 
der vieles von dem bietet, was profes¬ 
sionelle Textverarbeitungen können, 
die meisten herkömmlichen Editoren 
aber nicht leisten. DPED eignet sich 
für die Bearbeitung kleiner bis mittel¬ 
großer Textdateien “am Stück“. Große 
Textdateien dagegen zerteilt das Pro¬ 
gramm in mehrere Dateien mit unter¬ 
schiedlicher Endung, die dann einzeln 
bearbeitet werden müssen, wobei die 
Ursprungsdatei unverändert bleibt. Das 
Programm arbeitet, geladenen Treiber 
vorausgesetzt, auch mit der Maus. 

Man kann beispielsweise sowohl mit 
der Maus als auch der Tastatur ganze 
Blöcke markieren, verschieben, kopie¬ 
ren und löschen. Das Markieren von 
einzelnen Wörtern ist auch möglich. 
DPED bietet die Einstellung von Rän¬ 
dern, die Bildschirmansicht in ver¬ 
schiedenen Modi, die Auswahl 
verschiedener Bildschirmfarben, Ta¬ 
bulatoreinstellungen und viele andere 
komfortable Features, so daß die Be¬ 
zeichnung Editor für DPED eher als 
Untertreibung erscheint. 

Die Bedicnunganleitung zu DPED, in 
der Share wäre-Version als ASCII-Da- 
tei auf Diskette, ist sehr übersichtlich 
und gibt erschöpfend Auskunft. Dar¬ 
über hinaus ist im Programm selbst 
eine knappe, aber informative Hilfe¬ 
funktion integriert. 

DPED ist ein englisches Programm, 
das aber trotz der Sprachbarriere auch 
im deutschsprachigen Raum seine 
Liebhaber finden wird. 

Info 

Die Deutsche Software Bibliothek 
Xlonatsdiskette Januar 1991 

Shareware 

Gebühr Vollversion: 20, US$ 

Voraussetzungen: keine 


Bild 2: Die DOS- 
Befehlszeile wird 
übersichtlicher - 
dank BriteLine 

• Finger Paint 

Daß der PC nicht nur Instrument zur 
Erfassung und Bearbeitung von Daten 
aller Art ist, dürfte hinlänglich bekannt 
sein. Ein Bereich, der sich mittlerweile 
zu einer eigenen Industrie entwickelt 
hat. ist das grafische Arbeiten am PC. 
Begriffe wie Desktop Publishing , 
Computer Aided Design und andere in 
diese Richtung gehörenden Schlagwör- 
tcr bringen künstlerische Kreativität 
und EDV auf einen Nenner. 
Kommerziell vertriebene grafische Pro¬ 
gramme, die Ansprechendes leisten, 
aber auch entsprechend viel kosten, 
gibt es zuhauf. Im Shareware-Bereich 
sorgt in Sachen Grafik ein Programm 
namens Finger Paint für Aufregung. 

Im Gegensatz zu den meisten kommer¬ 
ziellen Malprogrammen begnügt sich 
das englischsprachige Finger Paint mit 
geringsten Hardware-Anforderungen: 
256 kByte RAM und CGA- oder Her- 
cules-Grafik auf einem XT genügen 
schon, um loszulegen. Zu empfehlen 
ist außerdem eine Maus, die voll unter¬ 
stützt wird, und ein Drucker. In der re¬ 
gistrierten Version erhält man Druk- 
kertreiber und Fonts für insgesamt 160 


(!) Drucker — das bieten viele kom¬ 
merzielle Programme nicht. Die Ober¬ 
fläche des Pixel-orientierten Finger 
Paint ist übersichtlich und erläutert 
sich im Prinzip von selbst. Trotzdem 
sollte man sich die als Textdatei beige¬ 
fügte Anleitung durchlesen. 

Nach dem Programmstart wird man 
zunächst nach der vorhandenen Video- 
Ausstattung gefragt, anzuwählen sind 
CGA, Hercules oder EGA. Auf einem 
abwärtskompatiblen VGA-Monitor 
nebst Karte kann das Programm im 
EGA-Modus betrieben werden. Die 
Bedienung kann sowohl über die Tasta¬ 
tur als auch die Maus erfolgen. 

Am linken Bildschirmrand sind die per 
Maus anwählbaren Zcichenfunktionen 
in kleinen, mit Symbolen versehenen 
Feldern angeordnet. Am unteren Bild¬ 
schirmrand befinden sich die Auswahl- 
leisten für die Füllmuster und Strich¬ 
stärken. Darunter werden in Feldern 
die Koordinaten, der zuletzt gewählte 
Schrifttyp nebst Größe sowie der Name 
der gerade aktiven Datei angezeigl. 
Am oberen Bildschirmrand erscheinen 
zu sämtlichen Funktionen Textbefehle 
und kurze Erläuterungen. 


Bild 3: DPED - " Text- 
verarbeitungs- Wolf' im 
''Editor-Schafspelz “ 


rrrdm 
DISCLA HIER: 

R.L. Amans hereby di 
uhether it is expres 
to dny implied uarra 
particular purpose. 
special, incidental, 
the loss of data or 
even if R.L. Amans o 
possihility of such 
for any damages ever i:| 


Home/End - Howe Cursor to start/end of 1 ine 

Ctrl-Home/End - Hove Cursor to top/bottum of scree» 

PgUpxPgDn - Display previous/next page 
Ctrl-PgUp/PgDn - Display first/last page 
Ctrl-Left/Right Hove Cursor by uhole words 
CtrI-Y - Delete the current line 

Ctrl-N - Insert a neu line above 

Escape - Clear file, Exit program or prompts 


~1 Press Escape to exit iielp |= 


DP Editor (TM), regardless of the form ajji/or extent of the Claim, 
user of DP-Editor(TM) bears all risk as to the guality and 
performuncc of the Software, 


The 


DP Editor(TM) is a trademark of Robert L. Amans. All trademarks and 
registered trademarks refcrcnced uithin this documcnt are the property 
of their respective ouners, 

jChanges are periodically mnde to the information contained herein. 
These changes will be incorporated into future editions of this 
publication. 


ESC=Heu/Exit l^Help 2=Dir 3=Save 4=Exit 5=Prt 6=Bead 7=Urt 8=Tab 9=Na«e 0=Wra 
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Bild 4: Prima Grafik für wenig Geld — Finger Point 



Bild 5: Weniger Schreibkram mit Überweisung III 


Per Tastatur können alle Funktionen 
auch angewählt werden - dazu befin¬ 
den sich neben den einzelnen Symbo¬ 
len die jeweils anzuwendenden Tasta¬ 
turbezeichnungen. 

In der Shareware-Version sind vier 
Schriftfonts vorhanden, von denen je¬ 
der in 81 Größen darstellbar ist. Damit 
lassen sich Schriften in allen möglichen 
Variationen erstellen und sowohl verti¬ 
kal als auch horizontal darstellen. 

Das Besondere an Finger Paint ist, daß 
sich mit dem Programm viele dreidi¬ 
mensionale Objekte, beispielsweise 
Würfel oder Polygone, ohne großen 
Aufwand erstellen lassen. Will man ei¬ 
nen x-beliebigen Würfel zeichnen, 
wählt man das Symbol an, zeichnet ein 
Quadrat und zieht danach die Würfel¬ 
form, wie man sie haben möchte — ein¬ 
facher geht’s nicht mehr. 

In Finger Paint sind viele Features be¬ 
kannter kommerzieller Programme 
eingeflossen, die teilweise verfeinert 
oder verbessert wurden. Man erhält 
mit dem Programm ein sehr preiswer¬ 
tes Zeicheninstrument, dessen ständi¬ 
ger Verbesserung man sich nach er¬ 
folgter Registrierung beim Autoren si¬ 
cher sein kann. Obwohl in englischer 
Sprache, macht das Arbeiten mit die¬ 
sem Shareware-Zeichenprogramm viel 
Spaß. Es ist anzunehmen, daß über 
kurz oder lang auch eine deutsche 
Übersetzung, wie schon bei anderen 
US-Shareware-Produkten geschehen, 
auf den Markt kommt. 

Info 

PU-Service Laue 

Shareware 

Gebühr Vollversion: 29,- US$ 

Voraussetzungen: 256 kByte RAM 

• Überweisung 111 

Das liebe Geld wird heute zum größten 
Teil nur noch bargeldlos, also mit 
Überweisungen und Lastschriften, 


transferiert. Im privaten Bereich mag 
es kaum stören, wenn man zwei- bis 
dreimal im Monat eine Überweisung 
ausfüllen muß. 

Anders sieht es aber aus, wenn man 
zum Beispiel ein Ehrenamt in einem 
Verein übernommen hat und die arbeits¬ 
intensive Aufgabe des Schriftführers 
oder Kassenwartes erhielt. Wenn nun 
der Verein beispielsweise 300 Mitglie¬ 
der hat und auch viele Überweisungen 
getätigt werden müssen, kann das Gan¬ 
ze per Hand oder Schreibmaschine zur 
Tortur ausarten. 

Gegen dieses Übel gibt es das Share¬ 
ware-Programm Überweisung Ul. Es 
erleichtert die Bearbeitung von Über¬ 
weisungen und Lastschriften unge¬ 
mein, da man damit automatisch die 


entsprechenden Einzel- und Endlosfor¬ 
mulare bedrucken kann. 

Wichtig ist. daß zunächst generell 
überprüft wird, ob die Formulare, die 
man von der Bank erhält, der Norm 
entsprechen. Sollte ein Testausdruck 
ergeben, daß Programm und Formular 
nicht übereinstimmen, sind die Auto¬ 
ren bei erfolgter Registrierung bereit, 
eine Anpassung vorzunehmen. 

Überweisung 111 wird nach Aufruf der 
Datei START.EXE in ein Verzeichnis 
auf einer andere Diskette oder die Fest¬ 
platte installiert. Nach dem eigentli¬ 
chen Programmstart erscheint ein 
übersichtliches, jedoch nicht mausun¬ 
terstütztes Menü auf dem Bildschirm. 
Zunächst sollte man die Eingabe der 


Erläuterungen zu Public Domain und Shareware 

Vertrieb 

Die Public-Domain- und Shareware-Programme werden über darauf spezialisierte 
Händler vertrieben, deren Umsatz durch die Kopier- und Verwaltungsgebühren be¬ 
stritten wird. Die Händler tragen Sorge dafür, daß nur lauffähige und virenfreie 
Programme verkauft werden. Bei ihnen können Kataloge sowohl auf Diskette wie 
auch in “normaler“ Form angefordert werden. 

Public Domain 

Es handelt sich um Software ohne Copyright, die von jedermann frei benutzt und 
weitergegeben werden kann. Die Programme werden teilweise mit Sourcecode aus- 
geliefert, der vom Anwender beliebig verändert werden darf. Registrierung bei 
ständiger Nutzung ist nicht Pflicht - der Programmautor ist aber dankbar dafür. 

Shareware 

Das Copyright für die Programme liegt bei den Autoren. Man erhält Vollversionen, 
die zumeist mit Registrierungshinweisen durchsetzt sind, was aber das ausgiebige 
Testen nicht behindert. Will man ein Shareware-Produkt weiternutzen, muß man 
sich beim Programmautoren gegen eine meist geringe Gebühr registrieren lassen. 
Man erhält dann die aktuelle Vollversion ohne irgendwelche Störmeldungen und 
auch häufig ein “richtiges“ Handbuch. 

Durch das Vertriebssystem der Public Domain und Shareware, welches sich welt¬ 
weit erstreckt, kommt man in den Genuß eines riesigen Pools von Programmen al¬ 
ler Art, die größtenteils sehr leistungsstark und natürlich preiswert sind. 
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Konfigurationsdatei 


- ftrcEdit 1.15v 

ORCEDIT.CFG 


Dateien Aktionen Sortieren Markieren Optionen 


GIFPUB .EXE 
GIFPUB14.DOC 
REGISTER.DOC 
UGflCflP .COM 
UGAFIX .COM 


MIDEAST1.GIF 
MIDEASTZ.GIF 
MIDEAST3.GIF 
MIDEAST4.GIF 
MIDEASTS.GIF 
MIDEAST6.GIF 
UIRFIND .SUB 


.8S 92:39 
.89 02:50 
.89 02:48 
.88 02:34 
.88 01:36 
.98 13:03 

.91 21:50 
.91 05:01 
.91 21:50 
.91 17:04 
.91 11:07 
.91 16:29 
.91 19:54 


AHEADB 

AT1PRISM 

ATIUONDR 

CARDINAL 

CONFIG 

CUP IC 

EGA 

EUERX673, 
EUERX678, 
GENO5400. 
GENO6400. 
HIRES 
IMTEC . 


■ A:\UPIC-t. 

2898 
CFG 539 
CFG 428 
CFG 516 
CFG 612 
EXE 14389 
EXE 14213 
CFG 226 
CFG 458 
CFG 510 
CFG 546 
CFG 517 
CFG 540 
CFG 425 


28.01.91 

23.04.90 

17.05.90 

23.04.90 

23.12.90 

14.11.90 

21.11.90 

15.10.90 
23.04.90 

12.18.90 
26.09.90 

13.11.90 

30.10.90 
17.05.90 


14 Dateien, 61 von 362 kByle frei. 34 Dateien, Größe : 92412 Byte. 



Stammdaten mit <F1> aktivieren, 
die dann mit <F3> abgespeichert 
werden. Will man mit dem Eingeben 
von Empfänger- oder Zahler-Daten be¬ 
ginnen, müssen zunächst mit <F2> 
die Stammdaten wieder geladen wer¬ 
den. Mit <F4> wird die Eingabe in 
die Formulare aktiviert, die dann ent¬ 
weder sofort oder nach Abschluß aller 
Eingaben gedruckt werden können. 
Natürlich ist diese Methode eine Ver¬ 
knüpfung bisheriger Arbeitsweisen mit 
dem Computer. Es gibt mittlerweile 
zwar Programme, die die Arbeit mit 
Überweisungen und Lastschriften ver¬ 
einfachen, die Daten aber nicht auf 
Formulare drucken, sondern auf Da¬ 
tenträger, die dann bei der Bank einge¬ 
reicht werden. 

Zumeist sind diese den direkteren Weg 
wählenden Produkte aber noch nicht 
ausgereift, nicht kompatibel zur Soft¬ 
ware der Bank oder schlichtweg zu 
teuer. 

Überweisung 111 mag noch mit dem 
guten, alten Medium Papier arbeiten - 
dank der Formulardurchschläge hat 
man aber seine Arbeit “schwarz auf 
weiß“ — ein Aspekt, der auch im 
EDV-Zeitalter noch ein sehr beruhi¬ 
gendes Gefühl erzeugt ... 

Info 

PD-Service Lage 

Shareware 

Gebühr Vollversion: 79. - DM 
Voraussetzungen: keine 

• ArcEdit 

Das Problem mit Computerdaten aller 
Art, also Programmen und Datendatei¬ 
en, ist manchmal deren Umfang. So 
rauben große Datenbestände wertvol¬ 
len Festplattenspeicher und benötigen 
für einen Transport jede Menge Dis¬ 
ketten, wenn man keine Wechselfest¬ 
platte sein eigen nennt. 

Der Public-Domain- und Shareware- 
Bereich ist von dieser Problematik in¬ 
tensiv betroffen - manche Programme 
benötigen den Speicherplatz mehrerer 
Disketten — das führt zu hohem Ar¬ 
beitsaufwand beim Kopieren, und die 
Lagerung solcher Diskettenberge ist 
auch nicht gerade “das Gelbe vom Ei“. 
Was also tun - die einzige Möglich¬ 
keit wäre, Wege zu finden, wie man 
Programme und Datendateien entwe¬ 
der lauffähig verkleinert (komprimiert) 
oder aber sie zu Archivdateien bündelt 
(packt). Programme wie LHARC, 
PKZIP/UNZIP, HYPER und ähnliche 
Datenpacker dürften im Shareware-Be¬ 
reich daher gut bekannt sein. 

Der Nachteil fast aller “Pack-Program- 
me“ ist aber, daß sie relativ umständ¬ 
lich zu bedienen sind und man meistens 


Bild 6: Packen Sie 
komfortabel — mit 
A rcEdit 

schmerzlich eine gelungene, deutsche 
Menüführung vermißt. Hinzu kommt, 
daß die meisten Packer eine absolut ge¬ 
naue Befehlseingabe voraussetzen — 
geht was daneben, geht es gründlich 
schief. 

ArcEdit schafft da komfortabel und in 
deutscher Sprache Abhilfe. Das Pro¬ 
gramm ist ein “Archiv-Manager“, der 
selbst zwar nicht als Packer arbeitet, 
dafür aber als erstklassige Menü- und 
Bedienungsobcrfläehe für Pack-Pro- 
gramme dient — und mit fast allen gän¬ 
gigen Programmen dieses Genres zu¬ 
sammenarbeitet. Dies setzt natürlich 
das Vorhandensein dieser Programme 
voraus. 

ArcEdit arbeitet mit den folgenden 
Programmen zusammen: 

LHARC von Haruyasu Yoshizaki, Ja¬ 
pan, Vers. 1.13c, 

PKZIP/UNZIP von PKWare Inc. (Phil 
Katz), USA, Vers. 1.10, 

ZIP2EXE von PKWare, 
PKPAK/PKUNPAK von PKWare, 
HYPER von Sawatzki und Nischke, 
Deutschland, 

ARJ von Robert Jung. USA, 
und unterstützt ab Version 1.1 auch die 
Programmkomprimierer LZEXE von 
F. Bellard, Frankreich, sowie PKLITE 
von PKWare, mit denen man normale 
*.COM- oder *.EXE-Dateien ohne 


Bezugsadressen der hier 
vorgestellten Produkte: 

PD-Service Lage 
Postfach 1743 
4937 Lage/Lippe 
Tel.: 05232/66912 

Deutsche Software Bibliothek 
Alpenstraße 52 
8038 Gröbenzell 
Tel.: 08142/52177 


Einschränkung ihrer Lauffähigkcit 
verkleinern kann. 

Das Programm bietet ein übersichtli¬ 
ches, mausunterstütztes Menü sowie 
eine gute Bedienungsanleitung als 
Textdatei auf Diskette. Außer den un¬ 
terstützten Pack-Programmen benötigt 
man noch das Programm LIST von V. 
Buerg und R. Lehnert sowie einen 
ASCII-Texteditor, beispielsweise das 
weiter oben vorgestellte DPED. Die 
beiden Programme werden in das 
Menü von ArcEdit eingebunden. 
ArcEdit selbst benötigt nur 150 kByte 
RAM, für den einwandfreien Betrieb 
mit den einzelnen Packern oder Kom- 
primierern sind mindestens 512 kByte 
empfehlenswert. Eine Festplatte ist 
nicht unbedingt notwendig, sollte aber 
dennoch vorhanden sein, da zum einen 
das Arbeiten mit ArcEdit und seinen 
“Anhängseln" schneller geht, zum an¬ 
deren manchmal aus relativ kleinen, 
gepackten Archivdateien riesige Daten¬ 
mengen beim Entpacken herauskommen 
— was bei Diskettenbetrieb zu Proble¬ 
men führen kann. ArcEdit läuft mit al¬ 
len gängigen Video-Adaptern. 
Installiert wird ArcEdit mit einer In¬ 
stallationsdatei, die die einzelnen Arc- 
Edit-Programme in ein Verzeichnis 
überträgt, das vorab schon vorhanden 
und im Pfad der Datei AUTOEXEC 
.BAT eingetragen sein sollte. 

Sind alle Programme einschließlich 
Packern und Komprimierern, dem Edi¬ 
tor und dem List-Programm installiert, 
hat man nach dem zu empfehlenden 
Studium des Handbuchs eine zuverläs¬ 
sige und sehr komfortable Hilfe beim 
Archvieren und Komprimieren großer 
Dateimengen. 

Info 

PD-Service Lage 

Shareware 

Gebühr Vollversion: 35. - DM 
Voraussetzungen: 512 kByte RAM 

(Thomas Kallay) 
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Weg mit den Karteikästen 

Überlassen Sie die Datenverwaltung 
dem Computer 

Haben Sie große Datenmengen zu verwalten oder sind Sie Sammler und 
wollen Ihre guten Stücke archivieren? Möchten Sie die Mitglieder Ihres 
Vereins erfassen oder aber Ihr Warenlager auf Vordermann bringen? Dann 
dürfte das Programm ro-KARTEI 1.0 für Sie interessant sein. 


Programm nichts mehr im Wege. ro- 
KARTEI 1.0 wird mit einem Installa¬ 
tionsprogramm auf die Festplatte ko¬ 
piert. Nach dem Start begrüßt Sie ein 
grafisches Eröffnungsbild, und ohne 
weitere Umschweife sind Sie auch 
schon im Programm. 

Eine bestimmte Konfiguration 
ist gefragt 


Wenn Sie eine größere Menge Daten, 
zum Beispiel einen Katalog Ihrer Dis¬ 
ketten oder eine Kundendatei, zu ver¬ 
walten haben, dann bietet es sich natür¬ 
lich an, dies mit dem Computer zu erle¬ 
digen. Nicht jeder Computerbenutzer 
ist aber in der Lage, sich gleich selbst 
mit einer entsprechenden Program¬ 
miersprache ein passendes Datenbank¬ 
programm zusammenzubauen. Meist 
wird das ja auch eine zeitaufwendige 
Angelegenheit, und Sie müssen außer 
über Programmierkenntnisse auch 
über eine Programmiersprache ver¬ 
fügen. 

Nicht so bei ro-KARTEI 1.0. Nach In¬ 
stallation des Programms steht Ihnen 
ein Werkzeug zur Verfügung, mit dem 
Sie, im Dialog mit dem Rechner, ein 
Karteisystem Ihrer Vorstellung anle- 
gen können. Folgende Hardware-Vor¬ 
aussetzungen erwartet das Programm: 

• mindestens 512 kByte RAM und 

• eine Festplatte mit mindestens 
2 MByte freiem Speicherplatz. 


In der Datei CONFIG.SYS sollten fol¬ 
gende Eintragungen vorhanden sein: 

FILES=20 

BUFFERS=30 

Erfüllen Sie die oben genannten Bedin¬ 
gungen, so steht Ihrer Arbeit mit dem 


Hat man noch nie mit dem Programm 
gearbeitet, bietet es sich an, erst einmal 
die mitgelieferten Beispielkataloge an¬ 
zuschauen. Man bekommt einen Ein¬ 
druck von der Leistungsfähigkeit des 
Programms und kann sich eine Vorstel¬ 
lung davon machen, wie selbstent- 


Bild 1: Das Eröff¬ 
nungsmenü von 
ro-KARTEI 1.0 


ro-KARTEI 


Lizcnz-Nr,: tZ31Z90/D- 


- « - Roli\iid Otter, SOITIMRE F.NTUICKl.UHG, I> 8711 Leutershausen » 


Copyright (c) 1090 hy 




Roland 8 Dieter Otter 
Software-Entwicklung 
Zeilweg 1 

D-8711 Leutershausen 
Telefon: 09771/3717 


I 



Autoren 

Händler 

Anwender 


Interessengemeinschaft 
deutschsprachiger 
Shareware 


Sul'lware-Eiituickluiig und Systemberatuny 
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< Datum: 26.82.1991 > atei dit uchen usdruck ayout ersch. 


aufwerk: CaKARTEIs 


Kartei: test 


ro-KARTEI 1.0 - (c)1990 hij ro-Soft Roland Otter 


Bild 2: Die Eingabe der 
Datenfeldbezeichnun¬ 
gen ist relativ einfach, 
aber im Handbuch nur 
knapp beschrieben 



-Hilfe -Speichern -Nächstes Feld -Cursorbeuegung -Abbruch 


worfene Karteien einmal aussehen 
könnten. 

Nun geht man daran, sich die ge¬ 
wünschte eigene Kartei zu definieren. 
Als erstes muß die Struktur des Daten¬ 
satzes eingegeben werden. Besonders 
wichtig ist es, vor Beginn der Arbeit ei¬ 
nen genauen Plan der Datenfeldbe¬ 
zeichnungen zu erstellen, denn nach 
Abschluß der Karteidefinition ist deren 
Änderung nicht mehr möglich. Erst 
nach einigen Versuchen hat man, trotz 
eifrigen Lesens der Bedienungsanlei¬ 
tung, herausgefunden, was die einzel¬ 
nen Bezeichnungen, wie zum Beispiel 
Schlüssel, eigentlich bedeuten. 

Ist diese anleitungsbedingte Hürde er¬ 
folgreich überwunden, wird nun ver¬ 
langt, eine Maske zu erstellen. Hierbei 
wird dem Programm mitgeteilt, wie 
eine Karteikarte, die als Arbeitsfeld auf 
dem Monitor abgebildet ist, auszuse¬ 
hen hat. Man legt die Position fest, wo 
zum Beispiel Name oder Adresse eines 
Kunden stehen soll. Es können auch 
verschiedene Rahmen zur grafischen 
Hervorhebung und Verschönerung be¬ 
nutzt werden. Hier besteht nun die letz¬ 
te Möglichkeit, noch etwas an den Da- 
J teifeldbezeichnungen zu ändern. 

Das Kartei-Layout bestimmt 
man selbst 

Die Eingabe der Maske ist sehr einfach 
und bedienerfreundlich gestaltet und 
auch gut dokumentiert. Hat man diesen 
Programmteil abgeschlossen, liegt die 
Karteidefinition fest und kann nun nicht 
mehr geändert werden. Das ist schon 
alles, was bei diesem Programm zu tun 
ist. Nach wenigen Tests ist der Aufbau 
einer Kartei, wie in den Demonstra¬ 
tionsbeispielen dargestellt, schnell 
nachvollziehbar. 


Die Arbeit mit der selbstdefinierten 
Kartei ist nun sehr einfach, da sie in 
einzelnen, selbständigen Karteikarten 
organisiert ist. Bei der Abfrage der vor¬ 
gesehenen Daten springt der Cursor 
immer an die Stelle, die der aktuellen 
Eingabe entspricht und beschleunigt 
dadurch die Arbeit beträchtlich. Jede 
Karteikarte wird nach beendeter Einga¬ 
be oder Änderung automatisch abge¬ 
speichert. Das bedeutet, daß bei einer 
eventuellen Betriebsstörung, ‘mögli¬ 
cherweise durch Stromausfall oder ähn¬ 
lichem, niemals mehr als die gerade be¬ 
arbeitete Karteikarte verloren geht. 

Die Datensicherung ist 
gewährleistet 

ro-KARTEI 1.0 verfügt auch über eine 
umfangreiche Druckroutine. Sie kön¬ 
nen wählen, ob Sie eine Liste der Kar¬ 
teien, die Karteikarten selbst oder Eti¬ 
ketten für Ihre Artikel drucken lassen 
— falls Sie mit dem Programm Produk¬ 
te verwalten. Vor dem Ausdruck ist je¬ 
doch die Festlegung der Layouts für die 


jeweilige Funktion notwendig, die 
ebenfalls dialoggesteuert abläuft. 

Als besonderes Bonbon enthält ro- 
KARTEI 1.0 noch ein Untermenü mit 
der Bezeichnung kfcnr/ 2 .(-iedenes). 
Hier ist es möglich, die einzelnen Sy¬ 
stemeinstellungen zu tätigen oder zum 
Beispiel auch Druckertreiber zu instal¬ 
lieren. 

ro-KARTEI 1.0 leistet vieles, was we¬ 
sentlich teurere Datenbankprogramme 
auch bringen. Dabei ist das Produkt 
nicht nur sehr preiswert, sondern kann 
zudem, da Shareware, kostengünstig 
geprüft werden. Das Handbuch weist 
einige Mängel auf, die man jedoch, 
nach der Gewöhnung an die Arbeit mit 
dem Programm selbst, gut überbrücken 
kann. 

(Jörg Gurowski) 


Info 

PD-Service Lage 
Shareware 

Voraussetzungen: 512 kByte RAM, Festplatte 
Preis Vollversion: 84.- DM inklusive Versand 


Datu»: Z6.02.1991 > 



£öiUuii^26JjZ ; 199^^^^^flt^lillt uchen ayout ersch. 


.mifuerk: CaKARTEIn 


-Struktur Übernehmen -Balken auf/ab -Zurlick (keine Änderung) 

Bild 3: Die Kartei-Maske - Gestaltung des Dateneingabe-Layouts 


ro-KARTEI 1.0 


1_ 


l’ersuuu IsUmmdfltci 


Laufende Nummer: ' 

•Name: 

Unrnane: 

gehören am 

Slrape: 

PLZ/Uohnorl: 

Telefon: 

Abtei 1 iini|: 

Tätigkeit: 



1 Laufende Nr. 


ame 

orname 

6e urtstag 
ohnort 

tiketten-Druck 

NEIN 

arteikarten drucken 

NEIN 

isten-Layout 


apler-Format 

ENDLOS 

eitenlänge 

70 

utom. Leerzelle 

JA 

A suahl-Liste 

NEIN 

Aus abe auf 

BILDSCHIRM 

S hriftart 

Pica 

ruckvorgang starten 


urllck zum Hauptmenll 



-Hilfe -Einstellung speichern 

Bild 4: ro-KARTEI 1.0 bietet vielfältige AusdruckmÖglichkeiten 
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Des Bürokraten liebstes Kind 

Formulare erstellen mit 
Formular Manager Plus 

Wenn die Chinesen das Papier nicht erfunden hätten, wären es bestimmt 
die Deutschen gewesen. Auf jeden Fall gibt es hierzulande mehr Formulare, 
als der Mensch Haare auf dem Kopf hat. Im EDV-Zeitalter macht es Sinn, 
Formulare auch auf dem PC erstellen oder bearbeiten zu können - wir 
stellen eine geeignete Software dafür vor. 


Überall in unserer Gesellschaft begeg¬ 
nen uns Formulare. Sei es auf der Post, 
auf der Bank oder beim Autoverkauf. 
Den oft komplizierten Umgang mit den 
Behörden und Ämtern erleichtern uns 
Vordrucke, sie können ihn aber auch 
erschweren. Ein Programm, welches 
den komfortablen Umgang mit Formu¬ 
laren auf dem PC bietet, ist Formular 
Manager Plus von JANSEN Expert Sy¬ 
stems , München. 

Geliefert wird das Programm wahlwei¬ 
se auf fünf 5,25-Zoll- oder auf zwei 
3,5-Zoll-Disketten, dazu ein umfang¬ 
reiches Handbuch in einem Ordner. 
Alles zusammen ist in einem Pappschu¬ 
ber untergebracht. 


Illfu 

JANSEN Expert Systems 
Sommerstraße 17 
D-8000 München 90 
Tel.: 089/6519058 

Voraussetzungen: 512 kBytc RAM. mindestens zwei 
Diskettenlaufwerke (Hier eine Festplatte 
Preis: 490.- DM 


Sie installieren das Programm mit dem 
auf den Disketten befindlichen Installa¬ 
tionsprogramm. 

Starten Sie das Programm, erscheint 
der Hauptbildschirm mit Copyright-In¬ 
formationen, dem Datum, der Angabe 
des freien Speichers und einem Fenster 
mit dem Hauptmenü. Folgende Routi¬ 
nen können Sie hier erreichen: 

• Formular-Bearbeitung 

• Entwurf von Formularen 

• Zusatzprogramm zum Formular¬ 
entwurf 

• Hilfsfunktionen aufrufen 

• Programmlauf beenden 

Die Menüpunkte wählen Sie nun mit 
Hilfe der Cursortasten oder jeweils mit 
der Buchstabentaste für den ersten 
Buchstaben an. Nach erfolgter Wahl 
bestätigen Sie diese mit der ENTER- 
Taste. Die eben beschriebene Technik 
zur Auswahl in einem Menü wird im 
gesamten Programm angewendet. Ha¬ 
ben Sie sich für die Formularbearbei¬ 


tung entschieden, erscheint ein neues 
Menü, in dem Sie weitere Funktionen 
zur Arbeit mit bereits bestehenden For¬ 
mularen zur Verfügung haben. 

Bei Anwahl des Punktes Neues Formu¬ 
lar auswählen zum Ausfilllen erscheint 
ein neues Fenster, in dem die Liste al¬ 
ler vorhandenen Formulare ausgege¬ 
ben wird. Der gewünschte Vordruck 
nach erfolgter Auswahl wird dann auf 
dem Bildschirm abgebildet, wobei das 
oberste Füllfeld (ein zur Eingabe von 
Daten zur Verfügung stehendes Feld) 
und die oberhalb und unterhalb liegen¬ 
den 20 Zeilen des Formulars darge¬ 
stellt werden. Nun können Sie die ver¬ 
langten Eintragungen machen. Nach 
Erreichen der maximalen Länge des 
Füllfeldes oder nach Betätigung der 
RETURN-Taste springt der Cursor au¬ 
tomatisch zur nächsten Eingabestelle. 
Über die Funktionstasten können Sie 
auch noch zusätzliche Service-Routi¬ 
nen aufrufen. Ihnen wird zum Beispiel 
ein Fenster mit einem Hilfstext zu dem 
gerade in Arbeit befindlichen Formular 
oder auch ein Taschenrechner zur Ver¬ 
fügung gestellt. 

Mit dem Betätigen der Taste <F3> 
kann man Daten von einem auf Platte 
oder Diskette abgespeicherten Doku¬ 
ment einiesen. Dabei muß aber beach¬ 
tet werden, daß nur Felder mit überein¬ 
stimmenden Namen geladen werden 
können, wobei auch Groß- beziehungs¬ 
weise Kleinschreibung berücksichtigt 
wird. Die Möglichkeit, dBASE-Datei- 
en einzulesen, besteht ebenfalls. 
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(C) 1988/89/90 JANSEN Expert Systems, Somnerstrisse 1?, D-8008 MüncJien 98 
Tel. 089/6519058 Ucrsiun 5,0 


1.3.1991 



Haupt Programm 


FORMULAR.EXE FORMULAR.EXE FORMULAR.EXE FORMULAR. EXE FORMULAR. EXE 


Bitte Auswahl treffen ! - 1 


Forann Iiir-Bearlieitiii») 


Entwurf uon Formularen 
Zusatzprograrain zum Formularentwurf 
Hilfsfunktionen aufrufen 
Programm lauf beenden 


Speicher : 423 KBytes frei 


7 19 einfügen Feldname:IS1 Feldart:Text Schrift:Normalschrift 


Bearbeitet wird: BELEG.SCR 



FZ=TaRech F3=Daten lesen F4=Druck F5=Sichern F9=Schriften F10=Rechnen Esc=Endc 


Bild 1: Vom Hauptmenü gehen alle Aktionen aus 


Bild 2: So sieht ein fertiges Formular aus 


Insofern sich auf dem Formular Zah¬ 
lenwerte befinden, können diese, so 
gewünscht, per Taste <F10> berech¬ 
net werden. Sind alle Vorarbeiten ab¬ 
geschlossen und entspricht das Formu¬ 
lar Ihren Vorstellungen, können Sie es 
ausdrucken. 

Eine reichliche Auswahl an 
Formular-Dateien wird 
mitgeliefert 

Für die eigene Erstellung von Formu¬ 
laren wählen Sie im Hauptmenü den 
Menüpunkt Entwurf von Formularen 
an. Mit dem Wechsel in dieses Unter¬ 
programm verfügen Sie über weitere 
Funktionen. Sie können neue Formula¬ 
re entwerfen, vorhandene ändern, ei¬ 
nen Testausdruck ausgeben, Formula¬ 
re kopieren, eine ASCII-Datei einiesen 
und zum Schluß natürlich ins Haupt¬ 
programm zurückkehren. 

Haben Sie den Punkt Neues Formular 
entwerfen angewählt, muß zunächst 
dem neuen Entwurf ein Name gegeben 
werden, dem eine einzeilige Kurzbe¬ 
schreibung des Formulars folgt. Diese 
wird dann später in einer Auswahlliste 
für vorhandene Formulare verwendet. 
Nun kann mit dem Entwurf begonnen 
werden. Die Arbeit ist ähnlich der mit 
einem Textprogramm. Im Unterschied 
dazu ist es Ihnen hier aber möglich, Li¬ 
nien oder auch Doppellinien zu zeich¬ 
nen. Außerdem können Sie die oben 
beschriebenen Füllfelder festlegen und 
diesen Feldnamen zuordnen. Die Fel¬ 
der werden in Datumsfelder, Zahlfel¬ 
der. Betragsfelder, Fließtextfelder oder 
Textfelder unterschieden. Zur grafischen 
Gestaltung stehen Ihnen elf Schriftarten 
und deren Kombinationen zur Verfü¬ 
gung. was natürlich auch von den Fähig¬ 
keiten Ihres Druckers abhängt. 


Um nun an einer bestimmten Stelle ein 
Füllfeld zu definieren, betätigen Sie die 
F3-Taste. Daraufhin werden Sie nach 
dem Namen des Feldes gefragt. Dieser 
Name wird dann beim Einlesen anderer 
Dateien oder bei einer möglichen Zusam¬ 
menarbeit mit dBASE verwendet. 
Anschließend erscheint ein Fenster, in 
dem Sie die oben beschriebene Daten¬ 
art festlegen müssen. Dabei wird dann 
bei der späteren Verwendung in Datums¬ 
felder automatisch das aktuelle Datum 
eingetragen, was aber auch auf 
Wunsch von Hand geschehen kann. 
Zuletzt werden Sie noch nach der 
Schriftart des Füllfeldes gefragt. 

Die Formularerstellung 
ist gewöhnungsbedürftig, 
aber komfortabel 

Der Unterpunkt Formular ändern 
funktioniert äquivalent dem eben er¬ 
klärten Programm. Die dritte Routine 
bietet Ihnen die Möglichkeit, sich ei¬ 
nen Testausdruck des gerade entworfe¬ 
nen Formulars ausgeben zu lassen. Als 
nächstes darf natürlich ein Kopierpro¬ 
gramm nicht fehlen, mit welchem Sie 
schon vorhandene Formulare unter ei¬ 
nem neuen Namen auf Diskette oder 
Festplatte ablegen können. 

Der letzte Unterpunkt ist Einlesen ei¬ 
ner ASCII-Datei. mit der sich normale 
Textdateien einiesen und anschließend 
wie ein Formular weiterverarbeiten 
lassen. 

Nachdem Sie wieder ins Hauptpro¬ 
gramm zurückgekehrt sind, können Sie 
jetzt das Unterprogramm Zusatzpro¬ 
gramm zum Formularentwurf aufru- 
fen. 

Mit Hilfe der Rechenanweisungen 
wird es möglich, innerhalb eines For¬ 
mulares mathematische Operationen 


durchführen zu lassen. Als Beispiel sei 
hier das Formular einer Abrechnung 
genannt. In das Formular werden in 
Spalten verschiedene Geldbeträge ein¬ 
getragen, die dann laut der Rechenan¬ 
weisung am Schluß zu einer Summe 
zusammengefaßt werden. 

Die folgenden Unterpunkte funktionie¬ 
ren wie gleichlautende in anderen Un¬ 
termenüs. Das Anlegen einer dBASE- 
Sicherungsdatei ist nur für dBASE-An¬ 
wender relevant, und eine Erklärung 
würde im Rahmen dieses Beitrages zu 
weit führen. 

Rechnen im Formular ist 
auch möglich 

Vom Menü der vom Hauptprogramm 
aufrufbaren Hilfsfunktionen aus kön¬ 
nen der Druckertreiber bestimmt, ein 
Texteditor aufgerufen, die Drucker¬ 
schnittstelle und die Farbe des Bild¬ 
schirms festgelegt werden. Weiterhin 
kann man die Cursorform einstellen 
und weitere Zusatzfunktionen aufru- 
fen. Mit der Funktion Programmlauf 
beenden im Hauptmenü kehrt man zur 
DOS-Ebene zurück. 

Insgesamt ist der Formular Manager 
Plus ein nützliches Programm für die 
Erstellung und Bearbeitung von For¬ 
mularen, das jedoch der Gewöhnung 
bedarf. Dank einer großen Bibliothek 
kann man selbst ohne Eigenentwürfe 
schon sehr gut mit dem Programm ar¬ 
beiten, da die am meisten gebrauchten 
Formulare vorhanden sind. Das Hand¬ 
buch könnte allerdings etwas über¬ 
sichtlicher gestaltet sein und sollte an 
einigen Stellen auch dem Nicht- 
dBASE-Fachmann zugänglicher ge¬ 
macht werden. 

(Jörg Gurowski) 
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Wörter, Wörter, ... 

Ein Wörterbuch auf dem PC 

Oftmals steht man beim Arbeiten und Schreiben mit fremdsprachigen 
Texten vor dem Problem, schnell mal ein Wort nachschlagen zu müssen. 
Ein Wörterbuch hat man - nach Murphy -meist gerade nicht bei der 
Hand. Wie wäre es denn, wenn sich das Nachschlagewerk gleich auf der 
Festplatte befinden würde? 


Der Langenscheidt-Verlag, bekannt 
durch seine sehr guten Nachschlage¬ 
werke. hat ein Programm auf den 
Markt gebracht, das ein auf dem PC 
realisiertes Wörterbuch darstellt. Das 
Programm PCWB ist in seiner Aufma¬ 
chung sehr zurückhaltend und einfach 
zu bedienen. Beide Sprachrichtungen 
englisch-deutsch und deutsch-englisch 
zusammengenommen, beinhaltet das 
System, laut Angaben des Verlages, 
etwa 60000 Stichwörter und Redewen¬ 
dungen, die in der Regel dem Umfang 
eines althergebrachten Wörterbuches 
entsprechen. 

Umfangreiches Register 

ist vorhanden 

Geliefert wird PCWB wahlweise auf 
zwei 3,5-Zoll-Disketten oder vier Dis¬ 
ketten im 5,25-Zoll-Format (360 
kByte) zusammen mit einem dünnen 
Handbuch, dessen Presse-Vorabver¬ 
sion uns vorlag (13 Seiten). Auf den 
Disketten befindet sich ein Installa¬ 
tionsprogramm, das die Programmda¬ 
teien auf die Festplatte kopiert. Auf 
Wunsch nimmt das Programm auch die 
für die korrekte Funktion notwendigen 
Eintragungen in der Datei AUTO¬ 
EXEC.BAT vor. 

Danach können Sie das Programm mit 

PCWB 


aufrufen. Alternativ besteht die Mög¬ 
lichkeit, es als speicherresidentes Hin¬ 
tergrundprogramm zu starten. Mit dem 
Tastendruck <STRG-ALT-SPACE> 
kann es in diesem Fall dann aus anderen 
Programmen heraus, wie zum Beispiel 
Textsystemen, jederzeit aufgerufen 
werden. 

Wie wir unter Zuhilfenahme des MS- 
DOS-Programms MEM ermitteln konn¬ 
ten, blockiert PCWB durch einen spei¬ 
cherresidenten Aufruf aber einen Ar¬ 
beitsspeicherbereich von über 123 
kByte. Das kann bei größeren Anwen¬ 
derprogrammen schon zu Schwierig¬ 
keiten führen. 

Probleme gab es auch bei der Zusam¬ 
menarbeit mit diversen Textprogram¬ 
men. Beispielsweise bei ConText, ei¬ 
nem kleinen, aber komfortablen Text¬ 
verarbeiter, scheiterte jede im PCWB- 
Handbuch geschilderte Installation. 
Ein Aufruf des speicherresidenten 
Wörterbuches bei gleichzeitig gelade¬ 
nem Textverarbeitungsprogramm war 
nicht möglich. 

Speicherresidente Installation 

möglich, aber ... 

Ist der Start von PCWB auf die eine 
oder andere Art doch geglückt, er¬ 
scheint die mehr als dürftige Oberflä¬ 
che des Programms. Neben dem Copy- 


BUcher- 


D Dcutsch->Enulisch 


E Englisch->Deutsch 


Langcnsclieidl-Softuare 
Presse-Uorahuersion 
Z3.Ul.1991 

(c) 1991 Langenscheidt KG, Berlin und München und 
AMD Software, Rotterdam 

Langenscheidts PC-Wörterbuch 
Englisch 


Wörterbuch (c) Langenscheidt K6 


CompLex (c) AMD Softuare 


Bild I: Die sehr 
bescheidene Menü¬ 
oberfläche des PCWB 


right-Vermerk können Sie in einem 
links oben befindlichen Fenster zwi¬ 
schen den beiden möglichen Sprach¬ 
richtungen wählen. Haben Sie sich ent¬ 
schieden, befinden Sie sich automa¬ 
tisch im eigentlichen Programm. Nach 
der Eingabe des gewünschten Stichwor¬ 
tes kann man in einem links befindli¬ 
chem Fenster zwischen Wörtern, die 
mit der gesuchten Zeichenfolge begin¬ 
nen, das betreffende auswählen. 

Hier bewegen Sie nun den Cursor auf 
das Wort, welches übersetzt werden 
soll. Haben Sie Ihre Eingabe mit < RE¬ 
TURN > bestätigt, wird im rechts be¬ 
findlichen Fenster eine mögliche Über¬ 
setzung ausgegeben. Dies geschieht in 
einem Format, das auch bei Wörterbü¬ 
chern üblich ist. Mit Hilfe der Funk¬ 
tionstasten kann man hier bestimmte 
Schalter setzen. Damit aktivieren oder 
deaktivieren Sie verschiedene Service- 
Routinen, die vom Programm angebo- 
ten werden. Hierzu zählt zum Beispiel 
die wort- oder zeichenweise Markie¬ 
rung einzelner Bereiche aus der Über¬ 
setzung, die dann wieder zur Bearbei¬ 
tung übergeben werden kann. 

Systemroutinen sind über 
die Funktionstasten erreichbar 

Die oben genannten, in Sachen Äquiva¬ 
lenz zu herkömmlichen Wörterbüchern 
nützlichen Eigenschaften des Pro¬ 
gramms werden durch einen entschei¬ 
denden Makel überschattet, nämlich 
durch den für ein Programm dieser 
dürftigen Aufmachung viel zu hohen 
Preis. 

Das, was das Programm bietet, findet 
man allemal bei diversen Shareware- 
Programmen dieses Genres, die nicht 
nur wesentlich preiswerter sind, son¬ 
dern zudem auch noch über mehr Lei¬ 
stung verfügen. Darüber hinaus sind 
sie auch wesentlich besser gestaltet. 
PCWB sollte zunächst einmal in der 
speicherresidenten Ausführung wesent¬ 
lich weniger Speicherplatz beanspru¬ 
chen. Hinzu kommt, daß eine generelle 
Kompatiblität mit gängigen Text Verar¬ 
beitungsprogrammen ermöglicht wer¬ 
den muß. Darüber hinaus ist auch die 
optische Gestaltung einer Software 
maßgebend, wenn man stolze Preise 
verlangen will. 

(Jörg Gurowski) 


Info 

Langenscheidt KG, Neue Straße 3, Postfach 40 11 20. 
D-H000 München 40, Telefon (089) 36096-0 
Voraussetzungen: 

512 kByte RAM, Festplatte 
Preis: 398,- DM 
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The Intelligent Way 

with Pen Point 
Precision 


yTl’l’OlM Poinling Devlcc Software 


For i UM« Personal Cpniöiucfs, Personal Systcffl/2 ,M Sfcrjea and lOO'.'&eompadbtev 


Die Maus am Stift 

Kürztest: Der MousePen von 
APPOINT 

Die Maus macht das Arbeiten am PC komfortabler. Ist die Bedienung von 
Standardprogrammen mit ihr angenehm, gehört sie bei den grafischen 
Anwendungen (DTP, CAD) zum absoluten Muß. Eine interessante Maus¬ 
variante, die das Zeichnen am Computer wesentlich verbessern soll, haben 
wir uns angesehen. 


Wer viel mit der Maus arbeitet, weiß, 
daß sie sich hervorragend zum Zeich¬ 
nen mit dem PC eignet. Trotzdem ge¬ 
hört bei den herkömmlichen Mäusen 
einiges an Übung dazu, Freihandzeich¬ 
nungen zu erstellen. Dies liegt an der 
Form der PC-Nagetiere, die mit dem 
guten, alten Zeichenstift nichts ge¬ 
meinsam hat. 

Die amerikanische Firma APPOINT, 
eine Tochtergesellschaft der Interna¬ 
tional Machine Controls Systems Ine. 
aus Paso Robles, Kalifornien, brachte 
nun eine Maus auf dem Markt, die kei¬ 
ne ist — es handelt sich vielmehr um ei¬ 
nen Stift, der Mausfunktionen besitzt. 
Der MousePen kann sowohl an kompa¬ 
tible wie auch an PS/2-Rechner ange¬ 
schlossen werden. Für die verschiede¬ 
nen Anschlüsse sind Adapter beige¬ 


fügt. Nachdem die Hardware-Installa¬ 
tion abgeschlossen ist, wird der 
Treiber des MousePen von einer der 
beigefügten Disketten installiert und ist 
kompatibel zur Microsoft-Mouse. 

Genauer zeichnen mit 
dem MousePen 

Im englischen, aber ausführlichen 
Handbuch liest man, daß mit dem 
MousePen das Zeichnen am PC einfa¬ 
cher, sauberer und schneller geht als 
mit der Maus. Nun ist hinlänglich be¬ 
kannt, daß man Werbeaussagen in den 
Handbüchern mißtrauisch lesen sollte 
- in diesem Fall kann man sie aber für 
bare Münze nehmen — denn tatsäch¬ 
lich ist das Zeichnen mit dem Mouse¬ 
Pen so wie versprochen. 


Es bedarf zwar einiger Umgewöhnung 
für eingefleischte “Maus-Zeichner“, 
dafür wird man aber mit einer dem alt¬ 
hergebrachten, freien Zeichnen ent¬ 
sprechenden Arbeitsweise belohnt - 
eine sehr interessante Sache für alle, 
die grafisch am PC arbeiten. 

Hinzu kommt, daß man mit dem Mouse¬ 
Pen auch Zeichnungen “abpausen“ - 
also nachzeichnen — kann, was mit 
herkömmlichen Mäusen völlig unmög¬ 
lich ist. 

MousePen ist Microsoft- 
Mouse-kompatibel 

APPOINT liefert mit dem MousePen 
auch die Programme Telepaint und 
Menumake aus, bei denen es sich zum 
einen um ein kleines, aber feines Mal¬ 
programm und zum anderen um ein Me¬ 
tt üerstellungprogramm handelt. Beide 
sind ebenfalls in englischer Sprache ge¬ 
halten, aber ausreichend dokumentiert. 
MousePen ist eine wirkliche - und ge¬ 
lungene - Novität für den PC-Bereich, 
die es in sich hat. (Thomas Kallay) 


Info: 

Micro Mailcrs 

Borsleier Chaussee 85-99, Haus 8 
2000 Hamburg 61 
Tel..: 040/519202 
Preis: auf Anfrage 
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Das Hauptmenü des Diskettenmanagers Diskman 


»PC International« 6/7'91 
erhalten Sie ab: 



CPC 


- Lassen Sie sich mit dem Spiel 
Landgraf ins finsterste Mittelalter 
versetzen. Sie werden sehen, wie 
schwer es damals so ein Ritter hat¬ 
te. Als Ritter “So und So“ kämp¬ 
fen Sie gegen das Klima oder 
feindliche Nachbarn, Sie kaufen 
oder verkaufen Felder, Dörfer, 
Geschütze oder Sie legen sich 
eben mal eine neue Burg zu. 



Das Spiel Landgraf auf dem CPC entführt Sie 
ins Mittelalter 


- Haben Sie immer noch nicht 
das richtige Programm gefunden, 
um Ihre Disketten zu verwalten? 
Im nächsten Heft stellen wir Ihnen 
ein in Assembler geschriebenes 
Programm vor. Vielleicht ist es 
das, was Sie suchen. 

PCW 


- Mit Atomic können wir Ihnen 
im nächsten Monat ein sehr inter¬ 
essantes Spiel anbieten. Bauen Sie 

- als Atomforscher — mehrere 
Atomgebilde nach. 

- Für alle LocoScript-, LocoFile- 
und LocoMail-Besitzer findet sich 
auch in der nächsten Ausgabe wie¬ 
der so manches an interessantem 
Stoff. Wir zeigen Ihnen anhand ei¬ 
nes Beispiels genauestem auf, wie 
diese drei Programme in der Pra¬ 
xis Zusammenarbeiten. 


PC 


- Das Betriebssystem MS-DOS 
ist für manche PC-Einsteiger ein 
“Buch mit sieben Siegeln“. Wir 
stellen ein Lernprogramm für das 
verbreitete Betriebssystem vor. 

- Mancher ist ganz froh, wenn er 
anstelle vieler verschiedener Pro¬ 
gramme ein Programmpaket be¬ 
sitzt, dessen einzelne Anwendun¬ 
gen alle gleich zu bedienen sind. 
Microsoft Works gehört dazu. 



Microsoft Works - alles „unter einem Dach" 


□IE INSERENTEN 


com-zu Elektronik. 

.41 

Interest Verlan 



R? RR 

Crusader Software. 

.73 







PD Service Laqe. 

.2 

Westfalenhalle. 

27 

DMV.51,53-58, 63-68, 

119,120 





Graßhoff. 

.41 

SoftMaker. 

.73 

Wiedmann. 

.41 
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DATABOX 


DATABOX 

ist der preiswerte Software-Service Ihrer Zeitschrift 

DATABOX 

enthält lauffähige Programme für Ihren Einsatz 

DATABOX 

lohnt sich auf jeden Fall - Monat für Monat 


PCW 8256/8512/9512 


HF-Tapete 

Sicherlich dürfte unsere Umsetzung einer HF-Tapete 
nicht nur für die Elektroniker interessant sein. 

DateSet 

Endlich, nach mehreren Anläufen ist es gelungen, ein 
Basic-Programm zu veröffentlichen, das Datums- und 
Uhrzeitangaben so schnell und komfortabel vonstatten 
gehen läßt. 

Dolmetscher II 

Die kompletten Basic-Programme zur automatischen 
Übersetzung der CP/M-Dienstprogramme: 


LocoScript-Tips 

Zu den im Artikel angesprochenen Änderungen in 
LocoScript finden Sie auf dieser DATABOX die 
ablauffähigen Submit-Stapeldateien. 

Bonusprogramm 

Formel 1 nennt sich dieses Spiel, das aus komplexen 
Datenbeständen genau errechnet, ob Sie das Rennen 
gewinnen können oder aber auch nicht. 


Einzelbezugspreis für DATABOX: 

PCW - 3-Zoll-Diskette 


24,- DM 

Wenn Sie über den DMV-Verlag bestellen, gilt folgendes: 


Inland: 

Einzelpreis 
zzgl. Versandkosten 

24,- DM 
4,- DM 

Ausland: 

Einzelpreis 
zzgl. Versandkosten 

24,- DM 
6,- DM 

Endpreis 

28,- DM 

Endpreis 

30,- DM 


Zahlungshinwelse: 

Am einfachsten per Vorkasse (Verrechnungsscheck) oder als Nachnahme zuzüglich der Nach¬ 
nahmegebühr. (Bei Lieferungen Ins Ausland ist Nachnahme nicht möglich.) 


Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege 














Wissen ist Macht. 

Neu im DMV-Verlag: Computer-Wissen. Ein Magazin, 
das Ihnen Wissen über Ihren PC vermittelt, das ändere nicht haben. 

Unsere Themen: Alles, was Ihnen hilft, den PC besser zu nutzen und zu 
verstehen. Mit DMV-Computer-Wissen steht Ihnen das gesamte Know-how der 
DMV-Redaktionen in leichtverständlicher Form zur Verfügung. 


Aus dem Inhalt: 

Programme: 

- Deutsche Fehlermeldungen in 
GW-BASIC 

- Datei- und Verzeichniswahl mit 
Cursortasten 

- BASIC-Programme automatisch 
strukturieren 

- Konvertierungsprogramm 
von GW nach Turbo 

Routinen: 

- Umfangreiche Berechnungs¬ 
funktionen 

- Konfiguration feststellen 

- Hardcopy programmgesteuert 

- Grafikroutinen 

- Mausroutinen mit Testprogramm 
Specials: 

- Kalenderberechnungen 

- Wahrscheinlichkeit und Statistik 

- Literaturverzeichnis zum 
Thema BASIC 

Und vieles anderes mehr: 

Insgesamt über 500 Funktionen! 

Damit Sie das Rad nicht ständig neu er¬ 
finden müssen, steht Ihnen im ersten 
Band von DMV-Computer-Wissen eine 
in Umfang und Vielfalt unvergleichli¬ 
che Routinensammlung für Ihre eige¬ 
nen Programme in GW-, Turbo- und 
Quick BASIC zur Verfügung. Alle Li- 
stings und Programme sind auch auf 
Diskette erhältlich. 
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Super-Toolbox für 
eigene Programme 


BASIC-Routlnensammlung 
mit über 500 Funktionen! 


Deutsche Fehlermeldungen 
zum ’Nachladen’ 


Programmkonverter 
GW- 0 Turbo BASIC 


^ ’Call Interrupt’ 
in GW-BASIC 








AB SOFORT IM HANDEL 


DMV-Computer-Wissen Band 1: Basic-Toolbox 18, - DM* 

DMV-Computer-Wissen IDATABOX (2 stck. 51/4“ und 1 stck. 31/2“) je 35, - DM* 

* Unabhängig von der Anzahl der bestellten Artikel berechnen wir für das Inland 4, - DM 
bzw. für das Ausland 6, - DM Porto und Verpackung. Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Postfach 250 ■ 3440 Eschwege / 

Medlanverla* 




















